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PREFACE 


The purpose of this manual is to describe the SNA Application 
Interface Facility (AIF) and to provide the DPS 6 COBOL and 
Assembly language programmer with the information necessary to 
write application programs to communicate with transaction 
programs running under Customer Information Control System (CICS) 
Or Information Management System (IMS). This manual is designed 
for the person with basic familiarity of the SNA networking 
system. It assumes DPS 6 COBOL or Assembly language programming 
ee and eels with aoe SPS SaaS SEE See 


Users Guide (or No. CZ38) , and Dee ete tree andusge ina?) 
protocols used by your IBM distributed processing application. 


The major topics presented in this manual are: 


e A description of the AIF, its capabilities, and its 
individual components | 


@ A description of the Assembly language session calls and 
return codes | 


e A description of the COBOL session calls and return code 
messages 


* A description of the Assembly language conversation verbs 
and return codes 


© A description of the COBOL conversation verbs and return 
code messages 


€ Instructions on how to set up a Session Call Control 
Block (SCCB) or Verb Parameter Block (VPB) and execute an 
AIF session call through an Assembly language program. 


USER COMMENTS FORMS are included at the back of this manual. These forms are to be used to record 
any corrections, changes, or additions that will make this manual more useful. 


Honeywell disclaims the implied warranties of merchantability and fitness for a particular 
purpose and makes no express warranties except as may be stated in its written agreement 
with and for its customer. 


In no event is Honeywell liable to anyone for any indirect, special or consequential damages. 
The information and specifications in this document are subject to change without notice. 
Consult your Honeywell Marketing Representative for product or service availability. 
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g Instructions on defining an SNA work area in the 
Working-Storage Section and execute an AIF session call 
through a COBOL program. 


@ Restart procedures. 


The following symbols are used in this manual: 


CAPS 


[ ] 


i 3 


Items in capital letters must be input as shown, for 
example, SCNOER. 


Items in lowercase letters enclosed in angle brackets 
< > describe what you need to supply; for example, 
<node name>. 


Items in square brackets are optional; for example, 
[sccb address] 


Braces indicate that the user has a choice between two 
Or more entries. At least one of the entries enclosed 
in braces must be chosen {unless the entries are also 
enclosed in square brackets); for example, 

{NORMAL | ABNORMAL } — 


Vertical bars separate the choices within braces. At 
least one of the entries separated by bars must be 
chosen (unless the entries are enclosed in square 
brackets): for example [{SYNC|ASYNC}]. 


The following conventions are used to indicate the relative 
levels of topic headings used in this manual. 


Level 


L (highest) 
2 


3 
& 


Format 
ALL CAPITAL LETTERS, UNDERLINED 
Initial Letters, Underlined 

ALL CAPITAL LETTERS, NOT UNDERLINED 
Initial Capital Letters, Not Underlined 
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MANUAL DIRECTORY 


Manuals are obtained by submitting a Honeywell Publications 


Order Form to the following address: 


Honeywell Information Systems Inc. 
47 Harvard Street 
Westwood, MA 02090 


Attn: Publications Services MA06-0Ol1 


SNA MANUALS 


set 


The following publications constitute the DPS 6/SNA manual 
for Release 4.0 of SNA. 


Order 

Number Manual Title 

CR56 IBM Distributed Data Processing Overview 

CR57 DPS 6/SNA Administrator's Guide 

CR58 SNA Interactive Terminal Facility User's Guide 

CR59 SNA Remote Job Entry Facility User's Guide 

CR60 SNA File Transfer Facility User's Guide 

CZ74 ##GCOS 6 Data Base Augmented Real-Time Tracing 
System User's Guide 

GB88 SNA Host System Programmer's Guide 

GR1l SNA Application Programmer's Guide 


The SNA product is described in a Software Release Bulletin. 


Consult the Software Release Bulletin before using the software. 
The DPS 6/SNA Software Release Bulletin is: 


Order 
Number SRB Title 


GR12 GCOS 6 SNA Software Release Bulletin. 


Contact your Honeywell representative if a copy of the Software 
Release Bulletin is not available. 
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MOD 400 MANUALS 


The MOD 400 manual set provides information prerequisite to 
using the SNA manual set. Honeywell software reference manuals 
are periodically updated to support enhancements and improvements 
to the software. Before ordering any manuals, refer to the 
Manual Directory cf the MOD 400 Guide to Software Documentation 
to obtain information concerning the specific edition of the 
manual that supports the software currently in use at your 
installation. If you use the four-character base publication 
_mumber to order a document, you will receive the latest edition 

of the manual. If you wish to order a specific edition of | 
document, you must use the seven- or eight-character publication 
number listed in the MOD 400 Guide to Software Documentation. 


IBM MANUALS 


For host programming, operating, and configuration 
information, refer to the following IBM documents: 


Order vei ees 

Number Manual Title 

GA27-3136 SNA Reference Summary 

GC30-3084 Transaction Programmer's Reference Manual for 
LU Type 6.2 

SC23-0046 JES2 Initialization and Tuning © 

SC27-0614 ACF/VTAM Version 2 Messages and Codes 

SC27-0610 ACF/VTAM Version 2 Installation/Resource 
Definition 

SC27=-0611 | ACF/VTAM Version 2 Programming 

S$C30-3142 ACF/NCP/VS & SSP Installation (Release 2.1) 

S$C30-3143 ACF/NCP/VS & SSP Utilities (Release 2.1) 

SC30-3145 ACF/NCP/VS & SSP Messages (Release 2.1) 

SC33-0077 CICS Application Programmer's Reference Manual 
(Command Level) 

SC33-0133 CICS Intercommunication Facilities Guide 

SC33-0149 CICS Resource Definition Guide 

S$C33-0173 CICS Messages and Codes 

SH20-9054 IMS/VS Programming Guide for Remote SNA Systems 

SH20-90 81 IMS/VS Installation Guide 
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Section I 
INTRODUCTION 


This section introduces the SNA Application Interface 
Facility and presents an overview to this manual. The major 
topics in this section are: 

@e Overview 

© How to use this Manual 

@ SNA Application Interface Facility 

@ LU TYPE 0 sessions 

- Host Programming Considerations 


& LU TYPE 6.2 conversations 


~ Host Programming Considerations. 
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The Systems Network Architecture (SNA) Application Interface 
Facility (AIF) allows the GCOS 6 programmer to write COBOL or 
Assembly language programs to communicate with Customer 
Information Control System (CICS) or Information Management 
System (IMS) transaction programs at the IBM host. The DPS 6 
programs can be user-written, LU Type 0 applications or 
transaction processing routines, The AIF offers the DPS 6 user 
access to information from the host. 


This facility allows applications to interface to an SNA 
network at a high level. The AIF handles, creates and manages 
data structures on behalf of the application program. However, 
some knowledge of SNA protocols is necessary. 


To provide this level of interface, the AIF supports session 
calls for Session Type 0 users and basic conversation verbs for 
Type 6.2 users. These session calls and verbs are monitor call 
interfaces accompanied by a control block. Macrocalls are 
provided for the applications. 


HOW TO USE THIS MANUAL 


The purpose of this manual is to provide the DPS 6 
application programmer with the information necessary to write 
COBOL or Assembly language application programs to communicate 
with the IBM host CICS/IMS transaction processing programs for 
Type 0 and CICS transaction programs for Type 6.2. 


This section describes the AIF. 


Section 2 describes the LU Type 0 session calls that are used 
in assembly language, the session call control block, and special 
considerations in writing an assembly language program using the 
AIF. 


Section 3 describes the LU Type 0 COBOL session calls, the 
SNA work area in the WORKING-STORAGE-SECTION, and special 
considerations in writing a COBOL program using the AIF. 


Section 4 describes the LU Type 6.2 conversation verbs that 
are used in an assembly language program, the verb parameter 
block, and special considerations in writing an assembly language 
program using the AIF. 


Section 5 describes the LU Type 6.2 COBOL conversation verbs, 
the SNA work area in the WORKING-STORAGE-SECTION, and special 
considerations in writing a COBOL program using the AIF, 


Section 6 describes LU Type 0 restart logic and message 
_resynchronization. 
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Section 7 describes Communications Network Management, SNA 
Operator Control (SOPR) services, and maintainability through 
Data Base Augmented Real-Time Tracing System (DARTS). 


The Appendixes present material not otherwise detailed in 
this manual. Appendix A presents a detailed description of the 
AIF product architecture. Appendix B contains a sample assembly 
language program demonstrating LU Type 0 session calls, and 
Appendix C, a sample COBOL program. Appenix D lists the LU Type 
0 session call return codes. Appendix E contains a listing of 
the Session Call Control Block (SCCB) template with offsets. 


Appendix F lists the LU Type 6.2 conversation return codes. 
Appendix G includes a listing of the Verb Parameter Block (VPB) 
template with offsets. 


A glossary is provided to explain the meaning of terms used 
within the text of this manual. 


APPLICATION INTERFACE FACILITY 


A DPS 6 computer executing under the control of MOD 400 can 
communicate with IBM host networks that use SNA products. fThe 
additional host system programming Bedat tee to badd. do the GCOS 
facilities is described in the SNA Host System Programmer's Guide 
(Order No. GB88). | 


The AIF gains control via monitor calls executed by 
application programs. These monitor calls are generated from 
macrocalls in the application program that resolve into 
procedures that include a monitor call with a pointer to a data 
structure containing the user specified parameters for the call. 


The AIF is not specialized for any particular DPS 6 or IBM 
host application, but supports the application-to-application 
communications facilities available in CICS and IMS systems. The 
AIF provides the communications support necessary to implement 
the following: 


e User Assembly language and COBOL communication with CICS 
or IMS via LU Type 0 macrocalls 


® User Assembly language and COBOL advanced program to 
program communication with CICS via LU Type 6.2 
conversation verbs. 


LU TYPE 0 SESSIONS 


The AIF supports an application-to-application interface over 
a Session Type 0. The Session Type 0 is an interprogram Logical 
Unit (LU) defined within SNA. It is supported by both CICS and 
IMS and is used for communications between these “eupsyereus and 
applications on several IBM processors. 
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The Session Type 0 can use any feature of SNA that is defined 
by Session Type 0 FM profile 4 and TS profile 4. The SNA | 
features that these sessions can use are further defined by how 
CICS treats a full function LU or how IMS treats a secondary LU 
programmable. 


The constraints on this type of session are imposed by CICS 
Or IMS, each of which has a slightly different set of rules 
governing the exchange of information. Since there are slight 
differences in implementing the macrocalls for CICS and IMS, it 
is important for the application programmer to know with which 
the application program is communicating and how the LU is 
def ined. 


The AIF transactions are allowed to perform any function 
through CICS or IMS--inquiry, update, etc. These IBM subsystems 
specify the order in which SNA requests and responses can be sent 
but impose no restrictions on what can be done over the session. 


Host Programming Considerations 

A Session Type 0 requires that both applications expect the 
same format and protocol. These applications must be written as 
two complementary halves of a transaction, They must agree on > 
application protocols, transaction processor protocols, and the 
host GEN environment. 


Although host considerations are described in detail in the 
SNA Host System Programmer's Guide, the AIF programmer should be 
the host terminal definition of the application with 
which he will be communicating. These definitions influence how 
the AIF session calls are issued and which parameters must be 
supplied with them. 


The host views the application (LU) as a terminal, and 
defines it within tables. The following subsections list the 
host terminal definitions with which you will be concerned. 

Check with the host system programmer to determine the definition 
of the terminal macro(s) that the IBM system uses,. 


CICS TERMINAL CONTROL TABLE PARAMETERS | 
This subsection describes the Terminal Control Table (TCT) 
parameters which are of interest to you if your application is to 

communicate with a CICS transaction program. 
BRACKET=YES 
This parameter indicates that bracket protocol is to be 


enforced for the LU/LU session. This parameter is 
required for a full function terminal. 


1-4 GR11-01 


BUFFER=buffer size : 
This parameter indicates the size of the receive buffer 
for the LU. This is the maximum data length the DPS 6 

application can receive. The buffer size specified to 

CICS indicates how CICS does chaining. 


RELREQ= {YES |NO, YES |NO} 


This parameter instructs CICS whether to release the LU if 
it is requested by another application and whether 
disconnect requests are to be honored. If LUs are to be 
released to another VTAM application, the DPS 6 a 
application may have to re-issue the INIT. 


RUSIZE=ru_size 


This parameter specifies the maximum size of the request 
unit (RU) that the LU can receive. The size of the RU 
with relation to the buffer size determines how much 
chaining is done and how many receives one must do when 
not using the message completion option. 


TRMSTAT=term state 


This parameter indicates the type of activity that can 
occur at this LU. The terminal state determines whether 
the application can send to or receive from the host. 


IMS TERMINAL DEFINITION PARAMETERS 


The IMS terminal definitions control the protocol 
conversation in the LU-LU Session to an even greater extent than 
the CICS terminal definitions. This subsection describes the 
parameters that are of particular interest to you if your 
application is to communicate with an IMS program. 


COMPT),=(x[,¥,2Z]) 


This parameter specifies the component types and the 
processing associated with that node. A node can have up 
to four components (n=1-4) and three subparameters for 
each component. For the purpose of writing AIF 
transaction programs, you only need to know the value of 
the first of these subparameters (x). The value of x can 
be either: 


Programl - IMS does not assume program protection and 


can send consecutive messages without waiting for 
intervening input requests. 
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Program2 - IMS assumes component protection and does 
not send consecutive messages without intervening 
input requests, - | 


OPTIONS=(termresp, acknowl, rel req) 


This parameter specifies certain communications associated 
with the LU. These options dictate some of the basic 
communication design of the DPS 6 application. 


le 


Terminal Response Mode Options (termresp). 


When an application operates in terminal response 


mode, all operations between the terminal (or 


application) and IMS stop when IMS receives a 
transaction and do not resume until IMS receives an 
acknowledgment that the application received IMS's 
reply. 


This option can be defined as follows: 


a. TRANRESP: The transaction being executed can 
select terminal response mode. 


b. NORESP: Terminal response mode is not used for any 
transaction. : 


c. FORCRESP: Terminal response mode is forced for all 
transactions. 


Acknowledgment (acknowl) 


This specifies the mode of acknowledgment between the 
terminal (application) and IMS. This option can be 
defined as follows: 


ae ACK: This option indicates that transactions are 
recoverable and must be acknowledged. If this 
option is specified, the AIF application must 
request definite response on all input messages, 


b. OPTACK: This option indicates that only input 
messages containing a Begin Bracket (BB) indicator 
are acknowledged with an outbound message 
containing an End Bracket (EB) indicator. If this. 
option is specified a request by AIF for definite 
response is optional. 
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3. Release Request (relreq) 


This parameter indicates whether IMS should release 
an LU if requested by another VTAM subsystem. This 
option can be defined as follows: 


a. RELRQ: This option specifies that IMS must honor 
requests from other VTAM subsystems and release 
the LU. 


b. NORELRQ: This option specifies that IMS not 
release an LU when it is requested by anothe 
subsystem. : 


Refer to the IBM manual IMS/VS Programming Guide for Remote 
SNA Systems for further information about programming secondary 
LU Type P sessions to connect to IMS applications. 


The AIF supports an advanced program to program communication 
interface over an LU Type 6.2 Conversation. The LU Type 6.2 is 
an interprogram Logical Unit (LU) defined within SNA. It is 
Supported by CICS and is used for communications between 
transaction programs and network resources, 


The LU Type 6.2 can use any feature of SNA that is defined by 
LU Type 6.2 FM Profile 19 and TS Profile 7. The SNA features 
that these sessions can use are further defined by how CICS 
treats an LU 6.2 and the extent to which it has been implemented 
in the AIF. 


The SNA features that these sessions can use are constrained 
only by the level of LU 6.2 functions that are incorporated in 
the program products. The AIF supports the basic conversation 
implementation of LU 6.2. Applications must conform to the rules 
for basic conversations. For more information on LU 6.2 
programming considerations, refer to the appropriate IBM manuals 
listed in the front of this book. 


The AIF transactions are allowed to perform any service or 
application function through CIiCS--inguiry, update, etc. An LU 
Type 6.2 application expects the same format and protocol on both 
sides of the conversation. These applications must be written as 
two complementary halves of a transaction. They must agree on 
application protocols, transaction protocols, and conversation 
states, 
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PROGRAMMING 
LU TYPE 0 SESSIONS 
IN ASSEMBLY LANGUAGE 


This section describes the Assembly language session calls 
that are used to converse over a Session Type 0 with host 
transaction programs. Topics include: 


@e Session call format 


Programming considerations 


- Getting started 

- Synchronous vs. Asynchronous Processing 
- Creating a session call control block 

- Checking the return code 


@ Individual session calls 


- Format 
~ Descriptions 
- Return codes 


SESSION CALL FORMAT 


The session calls used by the AIF are system-provided 
macrocalls. These session calls have a list of arguments that 
can be specified by the programmer or accepted in their existing 
form. The AIF session calls follow the conventions for Assembly 
language as described in detail by the MOD 400 Assembly Language 
Reference (Order No. CZ38). The first field of the session call 
can have an optional label. If no label is used, at least one 
blank space must precede the session call. 
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When the AIF is activated, it defines one or more groups of 
sessions according to the configuration file for that node. Each 
group of sessions is reserved for a specific host CICS or IMS 
system. The AIF can either log on to the host system at 
initiation or it can wait for an application to initiate the 
session before sending a logon request. The time of logon is a 
configuration option. | 


When an application requests to initiate a session with a 
reserved LU, the AIF checks the availability of that LU and 
assigns it if it is available. If the specified LU is 
unavailable, the AIF checks first for an available reserved LU, 
second for an available preestablished LU, and then for any. 
available LU to assign to the session. MThe AIF either returns 
the address of the LU with which the session is started, or 
rejects the request if there is no LU available. 


A DPS 6 application gains access to a host-initiated session 
by executing a SSACPT session call. Executing the accept session 
call causes the application to be connected to a host~initiated 
session and causes the LU to send a positive response to the 
host, accepting the session. 


User-selected items are known as arguments. These arguments 
are positional within the session call macros--the order of 
positional arguments indicates the variables to which data is 
applied. Thus, the order of your arguments must be the same as 
the order of the positional arguments within the session call 
macro, 


The following rules govern the use of positional arguments: 


@e Omitted arguments that precede an included argument must 
be indicated by the presence of a delimiting comma for 
each omission. | 


@e One or more spaces must separate the macrocall name from 
its arguments, with a comma between each argument. (The 
horizontal tab character is equivalent to a space.) 


e A semicolon at the end of a line indicates that the next 
line is a continuation line. 


In the following example, the first and third arguments have 
been omitted; their positions have been held by delimiting 
commas. Spaces separate the session call name from its 
arguments. 


SSINIT ,'AIFNODE1',,'AA',SYNC 
The arguments for these session calls are found in the SCCB. 
An SCCB must be provided for each session call. These fields can 


be altered either during initialization or. by including the 
appropriate arguments in the session call itself. 
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At the completion of each session call, when control is 
returned to the application, a return code is placed in register 
SR1. This return code indicates whether a session call has been 
completed error free. The application should check this return 
code after each session call to verify the return status of the 
session call. Additional information, if desired, can be found 
in the output control word, found at the offset SC OCT of the 
SCCB. 


PROGRAMMING CONSIDERATIONS 


Many of the programs that use the AIF session calls are. 
written in Assembly language. These applications may be 
reentrant and may not require more than one occurrence of a given 
macrocall. 


Special considerations that the programmer must bear in mind 
are discussed in this section: 


Getting started 

Synchronous vs. Asynchronous processing 
Creating a session call control block 
Host-initiated sessions 

Checking the return code, 


Getting Started 


When using the AIF session calls in an Assembly language 
program, remember the folowing steps: 


1. In order to use the session calls and utility macros 
included with the AIF, you must first make them available 
to your program. When beginning your program, include 
the following statement: 


LIBM '>>LDD>MACROS>MAC USER' 


2. Then issue the macrocalls SSSCCB and SSAIRC to define the 
SCCB and return codes in memory. 


3. You must also set aside a workspace with room for the 
stack, the SCCB, and your send/receive buffer, as in the 
following example: 


* 


* WORK LOCATIONS: STACK, SCCB, & SEND/RECEIVE BUFFER 
# 


WKSP —  EQU 0 BEGINNING OF WORKSPACE 
MYSTACK EQU WKSP+50 REGISTER STACK 

CNTLWD EQU MYS TACK FOR PROGRAM CONTROL 
MYSCCB EOQU CNTLWD+1 BEGINNING OF SCCB 
BUFFER EQU MYSCCB+SC SIZ SEND/RECEIVE BUFFER 
BUFSZ EQU 2000 BUFFER SIZE 

WKS PSZ EQU BUFFER+BUF SZ WORKSPACE SIZE 
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ynchronous vs. Asynchronous Processing — 
The AIF session calls can be processed either synchronously 
Or asynchronously. 


SYNCHRONOUS PROCESSING 


Synchronous processing implies that when the application 
passes an instruction to the AIF for processing, it waits for the 
application to complete that instruction before continuing. 


In Figure 2-1, a SSINIT session call has been issued 
synchronously. The application completes its segment of 
processing and passes the request to the AIF. The AIF executes 
the SSINIT completely and passes the return code to the 
application. The application does not process other instructions 
while the AIF is executing the SSINIT session call. 


SYNCHRONOUS PROCESSING 


ISSUES 
SESSION 


ALL 
APPLICATION CAL ___ CONTINUES PROCESSING 
PROGRAM: © oor ee : ~ 
ACCEPTS THE 
REQUEST (DONE) 


AIF ' 
| | 
] i 

| EXECUTES SESSION CALL 
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Figure 2-1. Synchronous Processing 


ASYNCHRONOUS PROCESSING 


Asynchronous processing implies that when the application 
passes an instruction to the AIF for processing, the application 
continues to process other instructions while it waits for the 
AIF to complete that instruction. 


In Figure 2-2, a SSINIT session call has been issued 
asynchronously. The application completes its segment of 
processing and passes the request to the AIF. While the AIF 
executes the SSINIT session call, the application is processing 
other instructions. In order for the application to find out 
that the AIF has finished executing the SSINIT session call, the 
application must execute a SSWANY or a SSTEST session call. 
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SCRANTON pS ln HOR, 


ASYNCHRONOUS PROCESSING 


ISSUES { 
SESSION. OTHER PROCESSING 
CALL j CONTINUES PROCESSING 


PROGRAM { 
[ 

ACCEPTS 

THE REQUEST DONE 

| 


AIF | 


eT ge = mE 


EXECUTES SESSION CALL 
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Figure 2-2. Asynchronous Processing 


Each time you issue an asynchronous order, you must check the 
receive queue before you can receive information. You can do 
this by either the SSTEST or the SSWANY session call. These two 
session calls differ as follows: 


1. The SSTEST session call checks to see if there is 
information in the queue to be received and immediately 
reports back to the application. This call can be 
executed any time you wish to check for an outstanding ~~ 
order, and as often as you wish to check, because the 
application regains control immediately after the test is 
completed. | 


2. The SSWANY session call checks for information on the 
queue and waits until there is information waiting before 
it returns control to the application. 


Communication between the application program and the AIF is 
through the application-provided SCCB. Following a SSINIT or a 
SSCACPT, the same SCCB is used for all subsequent session calls 
until a particular session is terminated. If a program is to run 
multiple sessions, you must provide a separate SCCB for each 
session. 


When the application provides parameters with a given 
macrocall, the macrocode updates the appropriate SCCB fields 
before executing an AIF monitor call. If any of the fields have 
been changed, the new values are in the SCCB when you reexamine 
ie. 


The first parameter of each macro is the location of the 
SCCB, except in the case of SSWANY. If not specified as the 
first parameter of the macro, this pointer must be in register 
$B4. Allowable formats for this parameter and all address 
pointers are the same as found in the "Addressing Parameters" 


section of the System Programmer's Guide, Vol. 2 (Order No. 
CZ06). 
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Where a value rather than an address is provided in a 
parameter, allowable EOTnaCe ares: 


1. (*)$B1(.$R) 


2. LABEL 

3 e =SR1 

4. =literal 
5. !LABEL 


When you establish a session through a SSINIT or a SSACPT, 
you must supply an SCCB. This SCCB is used for all session calls 
for this session. The application can move-the session call 
parameters to the SCCB before executing the session call (see 7 
example 1 below). The programmer can also provide the parameters 
for the session call in the macro itself (see example 2 below). 


The following examples show both methods of creating an SCCB 
for the SSINIT session call. Which convention you choose to 
follow depends upon the requirements of your program. 


Example l: 


The following example shows the parameters in the SCCB being 
loaded before issuing the session call. Offsets to the SCCB 
are provided in the displacement macro S$SSCCB. (Refer to the 
SCCB template in Appendix E for appropriate offsets.) 


NODENM DC #'AIFSO5 ! 
HLU_NM DC ‘'CIcs ' 
STD NM DC ‘AB! 


LDB $B4, $B6.SCCB Load SCCB address to $B4 

LDI NODENM © Get first 4 bytes of nodename 

SDI $B4.SC NOD Store first 4 bytes of 

a nodename in SCCB 
LDI NODENM+2 Get second 4 bytes of nodename 
SDI $B4.SC_NOD+2 Store second 4 bytes of 
| nodename in SCCB 

LDI HLU_NM Get first 4 bytes of Remote LU 
name 

SDI $B4.SC_RLN Store first bytes of Remote LU 
name 

LDI HLU_NM+2 Get second 4 bytes of Remote 

3 LU name 

SDI $B4.SC_RLN+2 Store second byres of Remote 
LU name 

LDR $R2, STD NM Get STD name 

STR SR2.SC STD Store STD name in SCCB 

LBT $B4.SC_ICT,SCRINS Set bit for synchronous 
execution 

SSINIT 
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Example 2: 


The following example shows the SSINIT session call with the 
same parameters specified within the macrocall. 


SSINIT ,'AIF505','CICS','AB' ,SYNC 
Host-Initiated Sessions 


The AIF supports host~-initiated sessions; that is, it accepts 
unsolicited binds. In order to accept an unsolicited bind, an LU 


must be reserved with the HOST INIT SESS parameter specified as Y 


(YES) in the LU entry of the configuration file. 


The program name, node name, STD name, and base level are 
provided to the application program by the AIF via the standard 
MOD 400 parameter list Refer to the MOD 400 stem Programmer's 
Guide, Volume 2 (Order No. CZ06.) When the application program 
begins execution, it must issue a SSACPT session call as the 
first session call, providing the STD name and the node name for 
the LU to be used. The node name and the STD name provided with 
the SSACPT call must be the same as the parameters passed by the 
AIF. 


After the SSACPT call is executed, the application is in 
receive state. The S$SACPT session call allows the AIF access to 
a host-initiated session. The application must execute a receive 
to have access to the bind. The AIF associates the first 
unsolicited bind (host-initiated session request) to the first 
SSACPT session call from the task group that the AIF spawned. 


An unsolicited bind can be for a program designated in the 
AUTO ATTACH entry of the AIF configuration or it can be any other 
unsloicited bind sent from the host. 


When the AIF receives an unsolicited bind for a specific LU, 
the AIF checks the LU entry for an AUTO ATTACH program. If it 
finds one, the AIF spawns a group with the program name as the 
lead task, and passes to the lead task the STD name, node_name, 
and base level used in the spawn group If the AIF does not find 
an AUTO ATTACH program in the LU entry, it accepts the session 
and looks for the program name in the first four bytes of the 
first record received, then spawns a group based on the ATTACH 
PROGRAM entry. If none is provided, default values are used to 
Spawn the group. 


The application can issue multiple SSACPTs to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one session, 
all LUs that can receive binds for that application must be 
reserved LUsS with HOST INIT SESS=Y. Each of these LUs must have 
the same group id specified in the LU entry in the configuration 
file. 
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NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must Create an attach 
program table entry with a dummy name (eg., ATTACH 
PROG=ABC), specifying the appropriate spawn group 
parameters, and include an ALIAS for ABC (eg., 
ALIAS=>>SYSLIB2>EC?EXECL) to execute the START 
UP.EC specified in the home directory. Refer to 


SNA Network Configuration for further information. 
Checking the Return Code 


After a session call is executed, the Application Interface 
Facility (AIF) returns a status code to the Session Call Control 
Block (SCCB) to indicate how the call was completed. The 
application should examine this return code at the completion of 
each session call to determine if the call has been completed 
error free. , 


The return code has 16 bits and is placed in register $Rl1 by 
the AIF before control is returned to the application program. 
The return code can also be found in SC RCD. 


Bits 0 through 4 have special meaning and represent general 
AIF return codes that could occur for any session call. These 
bits should be examined individually, then "masked out" so that 
the application can examine the remaining bits. If the bit is 
on, then the return code indicated is true. The following masks 
are provided in the SSAIRC macrocall for checking each of the 
first five bits as follows. 


Bit 0 RCAB RT 


The session has been terminated. An SOPR command has been 
entered that caused the session to terminate, or the 
session has been unbound by the host. The reason for this 
termination can be found in the "abort reason" code in the 
SCCB (SCCB.SC ABT). 


Bit 1 © RCSTOP 


An SOPR STOP command has been received. If the session is 
still active (bit 0 = 0), then check the SC TIM field in 
the SCCB to determine the time at which the session ends. 
During this time the application can continue to process, 
but should normally terminate. 


The time found in the TIME argument (SCCB.SC TIM) is the 


wall clock time in standard MOD 400 48-bit format, at 
which the session terminates. 
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Bit 2 RCRINT 


An interrupt has been received. The interrupt type is 
found in SC_INT in the SCCB, , 


There are three categories of interrupt: 


I Expedited or normal flow data flow control commands 

Ze Communications Network Management data 

3+ Control information passed to application program by 
the AIF. 


If sense data is present, it is found in SCCB.SC ESD.” 
Bit 3 RCSCNL 


The call has been cancelled; it is not processed. If the 
application desires the order to be processed, the call 
must be reexecuted. 


Bit 4 RCSCMP 
The call has been completed. 


A return code can indicate more than one condition occurring 
at the same time. For example, it can indicate both an interrupt 
and a completed call, no more session and a completed call, or no 
more session and a cancelled call. 


The masks RCABRT, RCSTOP, RCRINT, RCSCNL, and RCSCMP are 
provided for your convenience in checking bits 0 through 4. 
After you have checked these bits, null them out and examine bits 
5 through 15. If you choose to null these bits by using RCMASK, 
which is provided in the software (RCMASK=07FF), use the 
following statement: 


AND SRl ,=RCMASK 


Bits 5 through 15 contain the return code for a completed or 
cancelled call. One way of doing this part of the return code is 
to issue a "compare" instruction as follows: 


CMR SR1,=RMNOER Checks for "No error" code 
BE CONT 1 


If the Return code contains a "no error" message, branch to 
the next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
file, branch to another segment of the program, or shut down 
completely. 


Appendix F contains a complete list of return codes. These 


labels and their hexadecimal values can be found in the macro: 
SSAIRC (AIF Return Codes). 
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SESSION CALLS | 

Table 2-1 contains a list and description of the session 
calls used by the AIF in an Assembly language program. The 
format of these session calls is detailed on the following pages 
along with a discussion of the input arguments and an output 
description. 


Table 2-1. AIF Session Calls 


| Session Call Description 


SSACPT Accept Session 

SSCASR Cancel Outstanding Asynchronous Request 

SSGTAT | Get Session Attributes 

SSINIT | Initiate or Restart a Session 

SSPOLL Test for LU associated with task group 

SSRECV Receive message in application's buffer 

SSRI | Read Interrupt 

SSSEND Request the AIF to send a message or message | 
segment 

SSSI | Send Interrupt 

SSSRSP | Caller instructs the AIF to send a response 

SSTERM — | Terminate session 

SSTEST Test conditions 

SSWANY | Walt on any event 

SSACEB Converts ASCII to EBCDIC 

SS EBAC Converts EBCDIC to ASCII 
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S$SACPT 


SSACPT - Accept Session Call 


The SSACPT session call causes the AIF to connect the local 
application to a host initiated session. 


_ FORMAT 
[label] SSACPT [sccb pointer] Pl: $B4 
[,node name] P2: SC_NOD 
[,std name] P3: SC STD 
ARGUMENT 


sccb pointer 


This parameter contains a pointer to the address of the 
SCCB. If this parameter is missing, the address is 
assumed to be contained in register SB4. 


node name (SC_NOD) 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yourself and your node name has fewer than eight 
characters, this field must be left-justified and 
Space-filled. 


std name (SC STD) 


The configured Session Type Descriptor (STD) which lists 
the attributes of the session to be established. fMThis 
field consists of two alphanumeric characters. 


DESCRIPTION 


The SSACPT session call causes the AIF to connect the 
local application to a host-initiated session if there is 
one available. If no session iS available, the AIF 
returns and continues processing. The LU to which this 
bind refers most be a reserved LU. 


Tf your application is part of a host-initiated session, 
the SSACPT session call should be the first call 
executed. When the S$SACPT call is completed, the session 
is in receive state. 
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NOTE 


This call is always made synchronously. 


— 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 6 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
-individually, then “masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 RMNOER No error 

0019 RMACTO ACCEPT timed out 

0099 RMISTD Invalid STD name 

0040 RMINOD Invalid node name 

009A RMILUT Invalid LU type in STD 
0O09B RMNOAT No LU attached 


session id (SC_SID) 


This two-word field is supplied by the AIF after it 
accepts the session request. The first word is the 
session group name, which is assigned by the AIF to each 
of the sessions running in this session group. This value 
is used by the AIF to return a unique one-word session 
identifier for this session. This value is stored in the 
second word. This field is reserved for system use and 
must never be altered by the application. 


maximum ru size (SC_MRU) 


This field shows the RU size that is returned. 
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SSCASR - Cancel Asynchronous Request 


The SSCASR session call causes the AIF to cancel an 
outstanding asynchronous request, if possible. 


FORMAT 

[label] SSCASR [sccb pointer] Pl: SB4 
ARGUMENT 
sccb pointer 


This parameter contains a pointer to the address of the 
SCCB. If this parameter is missing, the address is 
assumed to be contained in register SB4. 


DESCRIPTION 


The SSCASR session call cancels an asynchronous request, 
if there is one outstanding. If the previously executed 
asynchronous request were completed when the SSCASR 
session call was executed, then the return code from the 
SSCASR session call is the return code for the completed 
asynchronous session call. If the previously executed 
asynchronous session call was not completed when the 
SSCASR session call was executed, and the AIF succeeded in 
cancelling the request, the return code from the SSCASR 
session call indicates that the session call has been 
cancelled. 


If there is no asynchronous session call outstanding when 
the SSCASR session call is executed, then the return code 
is RCNOUT (no outstanding session call). 


NOTE 


The SSCASR session call cannot be used to cancel a 
SSINIT session call, even if it has been executed 
asynchronously. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 
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In addition to the eer return codes, the following values 
are possible: 


Value Label Description 
0017 RMNOUT No outstanding asynchronous call 
NOTE 
If the previously executed asynchronous call were 


already completed, the return code is for that 
call. 


Examples 
In the following example, the application requests that the 
AIF cancel an outstanding asynchronous request. The AIF 


assumes that register $B4 is pointing to the SCCB of the 
session call to be cancelled. 


ENDIT SSCASR 
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SSGTAT - Get A Session Attribute 


The SSGTAT session call provides the application with 
attribute information for the session specified in the SCCB 
pointer. | 


- FORMAT 
[label] SSGTAT [sccb pointer] Pl: S$B4 
[,attribute buffer] P22: SC BUF 
[,attribute length] P3: SC DLG 
[,{RIL}] P4: SC_ICT.SCRHBI 
[, type] P5: SC_SIN 
ARGUMENTS 


sccb pointer 


This parameter contains the address of the SCCB of the 
session for which you are requesting attributes. If not 
declared, the address is assumed to be in register SB4. 


attribute buffer (SC BUF) 


A pointer to the application's receive buffer. This 
buffer will receive the data returned by this call. 


attribute buffer length (SC_DLG) 


The length of the receive buffer in bytes. The maximum 
allowable length of this buffer is 32,747 bytes. 


R|L (SC_ICT. SCRHBI) 


Specifies whether data starts on the left (L) or right (R) 
byte of the buffer address word. 


type (SC_SIN) 


Specifies the type of attribute you are requesting. The 
attribute information available is BINDIM, which has a 
value of 1. You can specify either the attribute type or 
its value, | 


DESCRIPTION 


The SSGTAT session call provides the application with 
attribute information , one attribute at a time, for the 
session whose SCCB pointer is specified when issuing the | 
call. If you plan to ask for the bind inage, the STD entry 
in the AIF configuration must include the parameter SAVE 
BIND=Y. 
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Special notice should be given to the situation where an 
interrupt is received either prior to or during the execution 
of the SSGTAT session tas 


1. When an interrupt is received before the execution of the 
SSGTAT, the application is given the data that was in the 
receive queue and informed of the interrupt. 


2. If an interrupt is received during the execution of a 

_. §$SGTAT, the order is not completed, control is returned to 
the application, and the return code indicates that an 
interrupt has been received. 


NOTE 
This call is always made synchronously. 
RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can. 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 RMNOER No error 

0013 RMRB2S Receive buffer too small 

0032 RMDTCL Send/receive rejected; data traffic cleared 
Or inactive. 

0010 RMIMPS Improper State 

0014 RMIINT Invalid attribute type 


Received Interrupt Type (SC_INT) 


This field contains the interrupt type if one is received 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 
This field can contain either detailed information about 
an error condition or sense data from a remote LU, if a 
negative response has been received. 


Received Buffer Data Length (SC_ADL) 


This field contains the actual length of the received data 
in bytes. 
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SSINIT - Establish A Session 


The SSINIT session call is used to establish or restart a 
session. In issuing the session call, you must indicate for 
which purpose it is to be executed, by specifying RESTART or 
NO RESTART. If you are using SSINIT session call to establish a 
session, you must use the following format: 


FORMAT : 
[label] SSINIT [sccb pointer] Pl: SB4 
[,node name] P2: SC NOD 
[,remote lu name] P3: SC _RLN 
[,std name] P4: SC STD 
[, {SYNC |ASYNC}] P5: SC_ICT.SCRINS 
[,NO_RESTART] P6: SC ICT. SCRSTR 
ARGUMENTS 


sccb pointer 


This parameter contains a pointer to the address of the 
SCCB to be used for this session. If not declared, the 
address is assumed to be in register SB4. 


node name (SC _ NOD} 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yourself and your node name has fewer than eight 
characters, this field must be left-justified and 
space-filled. 


remote lu name (SC_RLN) 


The name by which the remote LU is known to this 
application. This field contains eight alphanumeric 
characters. If you are loading the SCCB yourself and your 
remote lu name has fewer than eight characters, this field 
must be left-justified and space-filled. 


std name (SC_STD) 
The configured Session Type Descriptor (STD) which lists 


the attributes of the session to be established. This 
field consists of two alphanumeric characters, 


2-17 -GR11-01 


SSINIT 
SYNC|ASYNC (SC_ICT. SCRTNS) 


This parameter indicates whether execution of this call is 
synchronous or asynchronous. 


NO_RESTART (SC_ITC. SCRSTR) 


NO_RESTART is used to indicate that this is a newly 
established session; including NO RESTART causes this bit 
to be reset, 


DESCRIPTION 


The initiate session call requests that the AIF establish a 
session between an LU at the DPS 6 and an LU at the host, and 
that the local LU be assigned exclusively to the 
application. In the event that the AIF assigns a 
preestablished session to the application, the application 
Should store the send/receive sequence numbers in case a 
RESTART of this session ever becomes necessary. These 
sequence numbers are not reset to zero after each use. To 
the host, this appears as one session. On the DPS 6 side, 
the session is a serially reusable resource. After the 
SSINIT is executed, the session enters send state. 


NOTE 


A SSINIT session call, executed asynchronously, 
cannot be cancelled by uSing the SSCASR session 
call macro, 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 

individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 
0000 RMNOER No error 


0003 RMRNEG -RSP returned by host 
0004 RMNBIF Bind negotiation failed 
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0803 RCNEGC -RSP received, cancel this request; look in 
SC ESD for sense data 
0096 RMNNAC Node not yet active 


0097 RMNLAC Node active but no active LUs yet 
0098 RMNOAV LUS active, but none available for this 
session — 


0099 RMISTD Invalid STD name 
009A RMILUT Invalid LU type in STD 
0040 RMINOD Invalid node name 


Tf the SSINIT session call is successful (RCNOER), SC SQN and 
SC RSQ have the send/receive sequence numbers for the 
session. 


session id (SC SID) 


This two-word field is supplied by the AIF after it 
accepts the session request. The first word is the 
session group name, which is assigned by the AIF to each 
of the sessions running in this session group. This value 
is used by the AIF to return a unique one-word session 
identifier for this session. This value is stored in the 
second word. This field is reserved for system use and 
must never be altered by the application. 


maximum ru size (SC_MRQ) 

This field shows the RU size that is returned. 
Example: 
The following session call requests to establish a 
synchronous session between the node named AIF501 and the 
remote LU named CICS. The AIF assumes that the address of 
the SCCB is in register SB4, 


SSINIT ,'AIF501','CICS','AA',SYNC,NO RESTART 
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SSINIT - Restart Session 


If you are using SSINIT to restart a session, you must 
include the following parameters: 


{label] SSINIT [sccb pointer] Pl: $B4 
So : [, {SYNC|ASYNC}] : P5: SC_ICT.SCRINS 
[,RESTART] P6: SC_ICT.SCRSTR 
[,session id , P7: SC SID 


7msg resync send sequence P8: SC MRS 
rmsg resync rec sequence] P9: SC MRR 


sccb pointer 


This parameter contains a pointer to the address of the 
SCCB to be used for this session. If not declared, the 
address is assumed to be in register S$B4. 


SYNC|ASYNC (SC_ICT.SCRTNS) 


This parameter indicates whether execution of this call is 
synchronous or asynchronous, 


RESTART (SC_ITC.SCRSTR) 


RESTART is indicated only when the user wishes to restart 
an abnormally terminated session; including RESTART causes 
this bit to be set. 


session id (SC_SID) 


This two-word field is supplied by the AIF after each 
SSINIT session call if RESTART is specified. The first 
word is the session group name, which is assigned by the 
AIF to each of the sessions running in this session 
group. This value is used by the AIF after the first 
SSINIT session call to return a unique one-word session 
identifier for this session. This value is stored in the 
second word. This field is reserved for system use and 
must never be altered by the application. 


message resynchronization send sequence number (SC_MRS) 


If RESTART is specified, the AIF places the sequence 
number of the last sent message that the application 
program has sent in this field. This number should be 
stored after each send, so that it can be retrieved if a 
RESTART is necessary. 
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message resynchronization receive sequence number (SC_MRR) 


If RESTART is specified, 
number of the last received message in this field. 


the AIF places the sequence 
This 


number should be stored after each receive, so that it can 
be retrieved if a RESTART is necessary. 


DESCRIPTION 


The SSINIT session call is used to restart a session in the 


event that it has been abnormally terminated. 


Restart logic 


and restart rules are described in detail in Section 6. 


RETURN CODES 


The application should check the return code after each 


execution of a session call. 


Bits 0 through 4 have special 


meaning and represent general AIF return codes that could 


occur for any session call. 


individually, 
examine bits 5 through 15. 


In addition to 
are possible: 


Value 


0000 
0003 
0004 
0803 


0096 
0097 
0098 


0099 
009A 
0040 
0020 


Label 


RMNOER 
RMRNEG 
RMNBIF 


RCNEGC 


RMNNAC 
RMNLAC 
RMNOAV 


RMISTD 
RMILUT 
RMINOD 
RMRSRF 


the general return codes, 


These bits should be examined 


then "masked out" so that the application can 


the following values 


Description 


No Error 

-~RSP returned by host 

Bind negotiation failed 

-RSP received, cancel this re 
SC ESD for sense data 

Node not yet active 

Node active but no active LUs yet 

LUS active, but none available for this 
session 

Invalid STD name 

Invalid LU type in STD 

Invalid node name 

Restart not possible 


quest? Look in 


If the $SINIT session cali is successful (RCNOER), SC_SQN and 
SC_RSQ have the send/receive sequence numbers for the 


session. 
The following 


Value 


0001 
0002 
0004 


Label 


SDOO0OL 
SDO0002 
SD0004 


AIF sense data are associated with RCRSRF: 


Description 


Restart timed out or LU released by SOPR 
Session not restartable type 

Restart mismatch; synchronous point records 
do not match 
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If RESTART is successful, the application should examine the 
output control word (SCCB.SC OCT) for the following 
indicators. If the bit is on, the condition described is 
true. 


SCRSTS: STSN received for message resynchronization; 
application should store current value of send and 
receive sequence numbers 

SCL6RX: DPS 6 application must retransmit last full message 


SCHORX: Host application must retransmit last full message; 
receive required of DPS 6 application. 


Example: 

The following session call requests the AIF to restart the 
above session after it has been abnormally terminated. The 
AIF assumes that the address of the SCCB is in $B4 and uses 
the send/receive sequence numbers from the SCCB. 


SSINIT 7777, RESTART 
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The SSPOLL session call checks to see if any LU associated 
with the application program's task group has been attached by 
the remote program. 


FORMAT 

[label] SSPOLL [sccb pointer] Pl: SB4 
[,node name] P2: SC _NOD 
[,std name] P3: SC STD 

ARGUMENTS 


sccb pointer 


This parameter contains the address of the SCCB to be used 
for this session. The sccb pointer used for a SSPOLL must 
be unique and should not be currently used by an active 
session. If not declared, the address is assumed to be in 
register $SB4. 


node name (SC_NOD) 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yoursel£ and your node name has fewer than eight 
characters, this field must be left-justified and 
space-filled. 


std name (SC_STD) 


The configured Session Type Descriptor (STD) which lists 
the attributes of the session to be established. MThis 
field consists of two alphanumeric characters, 


DESCRIPTION 


The SSPOLL session call causes the AIF to test to see if any 
LU associated with the application programmer's task group 
has been attached (bound) by the remote program. The SSPOLL 
Session call is Similar to the SSACPT session call, except 
that the SSPOLL does not cause a connection between the AIF 
and the application program if a bound LU is found. 


NOTE 


This call is always made synchronously. 
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RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


_In addition to the general return codes, the oernae values 
are possible: 


Vaiue 


0099 
0040 
009B 
0005 


Label 


RMISTD 
RMINOD 
RMNOAT 
RMLUAT 


Description 


Invalid STD name 

Invalid node name 

No LU attached for SSPOLL 

Indicates that there is an LU being bound 
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SSRECV - Receive Message 


The SSRECV session call causes the AIF to deliver to the 
application's buffer a message or message segment from the 
session partner. 


FORMAT 

[label] S$SRECV [sccb pointer] | Pl: SB4 
[receive data buffer] P2: SC BUF 
[,rec'v buffer length] P3: SC DLG 
[,{RIL}] P4: SC ICT. SCRHBI 
[, {SYNC |ASYNC} ] P5: SC ICT.SCRINS 
[, {MSG |M_SEG}] P6: SC ICT. SCRMSG 

ARGUMENTS 


sccb pointer 
This parameter contains the address of the SCCB to be used 
for this session. If not declared, the address is assumed 
to be in register SB4. 

receive data buffer (SC BUF) 
A pointer to the application's receive buffer. 


receive data buffer length (SC_DLG) 


The length of the receive buffer in bytes, The maximum 
allowable length of this buffer is 32,767 bytes. 


R|L (SC_ICT,SCRHBI) 


Specifies whether data starts on the left (L) or right (R) 
byte of the buffer address word. 


SYNC|ASYNC (SC_ICT. SCRTNS) 


This parameter indicates whether the execution of this 
call is synchronous or asynchronous. 


MSG |M_SEG (SC_ICT.SCRMSG) 


Specifying MSG indicates that a complete message (whole 
chain of request units) is to be delivered to the 
application's buffer. If M SEG is specified, single 
request units are delivered to the application's buffer. 
If the message segment delivered is the last segment, then 
the AIF sets the end of message bit in the output control 
word (SCREOM). 


2-25 GR11-01 


SSRECV 
DESCRIPTION 


The SSRECV session call causes the AIF to deliver a message 
or message segment (request unit) to the ee s buffer 
From the session partner. 


Tf the user specifies MSG, then the AIF assembles the chain 
before delivery. If the user's buffer is not large enough, 
the message is not delivered; the actual length of the 
message or message segment is returned to the application. 
The application can either re-execute the receive with an 
adequate buffer, or re-execute the receive specifying M _-SEG. 


NOTE 


If a RESTART of this session is a possibility, 
then the receive sequence number should be stored 
by the application executing this SSRECV session 
call. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Labet  $DBDeseription 


0000 RMNOER No error 

0800 RCNOEV Asynchronous session call accepted but not 
complete 

0032 RMDTCL Send/receive rejected; data traffic cleared 
Or inactive. 

0010 RMIMPS Improper State 

0013 RMRB2S Receive buffer too small. 


Received Interrupt Type (SC_INT) 


This field contains the interrupt type if one is received 
during the execution of this session call. 
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Error Code or Sense Data Received (SC_ESD) 
This field can contain either detailed information about 
an error condition or sense data from a remote LU, if a 
negative response has been received. 


Receive Data Buffer Length (SC ADL) 


This field contains the actual length of the received 
data in bytes. 


Output control word (SC OCT) 


This field contains certain indicators that are of 
interest after a successful SSRECV session call. I£ one 
of these bits is set, the condition described is true. 
Value Label 


Description 


8000 SCRWRP Reply requested (CD) 
4000 SCRROQD Definite response required (RQD) 


2000 SCRLST LAST message received (EB) 

1000 SCRFMH Function management header (FMI) 
0200 SCREOM End of message (EC) 

0400 SCRBOM Beginning of message (BC) 


Special notice should be given to the situation where an 
interrupt was received prior to or during the execution of a 
SSRECV session call. Two situations are possible: 


1. An interrupt was received before the execution of the 
SSRECV session call. In this case, the application is 
given the data if it was in the receive queue and the 
application is also informed of the interrupt. fMThe 
return code is either RCRINT+RCSCNL (X°'3000') or 
RCRINT+RCSCMP (X'2800°), depending on whether or hot 
there was data in the receive queue, 


2. An interrupt is received during the execution of a SSRECV 
session call. In this case, the order is not completed 
and return is made to the application with a return code 
RCRINT+RCSCNL (X‘'3000'). 


Example ¢: 

The following example causes the AIF to deliver an assembled 
asynchronous message to the application's buffer, which is 
256 bytes long, left-byte aligned. The values for parameters 
1 and 2 remain as they were prior to issuing this session 
call. 


SSRECV ,,=256,L, ASYNC, MSG 


2-27 GR11-01 


SSRI 


SSRI - Read Interru 


The SSRI session call reads interrupt information from the 
host or control information from the AIF LU when there is no 
other AIF session call outstanding. 


FORMAT 
[label] SSRI [sccb pointer] Pi: SB4 
ARGUMENT 
sccb pointer 
This parameter contains the address of the SCCB to be 


used for this session. If not declared, it is assumed to 
be in register SB4. 


DESCRIPTION 


The SSRI session call enables the application to read 
interrupt information from the host or control information 
from the AIF when there is no other AIF session call 
outstanding. 


If either of the following situations occurs, the condition 
is reported to the application, the SCCB is updated the same 
way as for the SSTEST or SSWANY session call and a return is 
made to the application. 


As with any asynchronous call, the application must execute a 
SSWANY or SSTEST session call to determine when the SSRI 
session call is complete and regain control. 


1. When an interrupt is received, the Received Interrupt 
Type and the Error Code Or Sense Data Received fields in 
the SCCB contains the appropriate information, 

2. If data has been received for which there is no 
outstanding order, the user must issue a SSRECV session 
call to gain access to this data. The length of the 
received data is in SC ADL. 

NOTE 


The SSRI session call is always made asynchronously. 
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RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 

0002 RMDRNR Data received but no read 

0040 RMIMPS Improper state 

0032 RMDTCL Send/receive reject; data traffic 
cleared/inactive 

Received Interrupt Type 


This field contains the interrupt type if one is received 
during the execution of this session call. 


Error Code or Sense Data Received 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. 
Example 
This session call allows the application to read interrupt 
information from the host when there is no other session call 
outstanding. This example assumes that register SB4 has 
previously been loaded with the address of the SCCB. 


RDINT SSRI 
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SSSEND - Send Message 


The SSSEND session call sends a message (chain) or message 
segment (RU) to a session partner. 


FORMAT 

[label] S$SSEND [sccb pointer] Pl: $B4 
f,send data buffer] P2: SC BUF 
[,send buffer an P3: SC DLG 
[,{RIL}] P4: SC_ICT.SCRHBI 
[, 5 P5: SC ICT. SCRINS 
[, {REPLY |RLCLR| P6: SC_ICT.SCSWRP 

LAST} ] s SC ICT. SCSLST 

[,{MNTCMP |MCMP}] P7: SC ICT. SCSMNC 
[, {FMH | NOFMH P8: SC ICT. SCSFMH 
[,{RQD|RQE}] P9: SC_ICT. SCSROQD 


ARGUMENTS 

sccb pointer 
This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register SB4. 

_ send data buffer (SC_BUP) 

A pointer to the application's data buffer. 

send data buffer length SC DLG) 


The length of the data in bytes. The maximum buffer size 
is 32,767 bytes. 


RIL (SC_ICT. SCRHBI) 
This argument specifies whether data starts on the left 
Or right byte of the buffer address word. The user 
specifies RIL. 

SYNC/|ASYNC (SC_ICT.SCRINS) 


This parameter indicates whether execution of the call is 
synchronous or asynchronous, 
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REPLY |RLCLR (SC_ICT.SCSWRP) 
LAST (SC_ICT.SCSLST) 


REPLY indicates to the application to send with reply 
requested (set change direction indicator in request 
header). This parameter is meaningful only when you are 
sending the last message segment or a chain, 

The LAST parameter causes the AIF to flag the last 
message (set end bracket indicator in request header). 
This parameter is meaningful only at the beginning of a 
message (chain). This option is not valid in CICS 
applications. 


RLCLR clears both the REPLY and the LAST bits in the 
input control word. 


MNTCMP|MCMP (SC_ICT. SCSMNC) 


MNTCMP indicates that the message chain is not complete. 
MCMP resets this indicator in the input control word. 


FMH|NOFMH (SC_ICT. SCSFMH) 


This parameter bit indicates that data is to be sent with 
Function Management Header in Request/Response Unit. 


RQD|RQE (SC_ICT. SCSRQD) 


RQD sends a messaage and requests a definite response. 
RQE sends a message and requests an exception response. 


DESCRIPTION 


The SSSEND session call instructs the sending of a message 
(chain) or message segment (RU) to the session partner, 
Special notice should be given to the situation where the 
application is executing a SSSEND session call but an 
interrupt is received before or during the execution of the 
session call. 


When you are sending an entire message (chain), use the MCMP 
parameter. When sending message segments, use MCTCMP, except 
for the last segment, with which you use MCMP, 


If an interrupt has already been received when the SSSEND 
session call is executed, the application is informed of the 
interrupt. If an interrupt is received during the execution 
of the SSSEND session call, the SSSEND session call 
completes, and when the application executes the SSWANY or 
SSTEST session call, return is made to the application. The 
return code indicates the interrupt received and the result 
of the SSSEND session call. 
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NOTE 


If RESTART of this session is a possibility, then 
the send sequence number and the entire message 
must be saved by the application executing this 
SSSEND session call. 


RETURN CODES 


The application should check the return code after each 


execution of a session call. 


Bits 0 through 4 have special 


meaning and represent general AIF return codes that could 


occur for any session call. 


These bits should be examined 


individually, then "masked out" so that the application can 


examine bits 5 through 15. 


In addition to the general return 


codes, the following values are possible: 


Value 


0000 
0800 


0032 


0040 
0803 


0003 
0012 


Label 


RMNOER 
RCNOEV 


RMDTCL 


RMIMPS 
RCNEGC 


RMRNEG 


RMIRHI 


The following 


Value 


0828 
4004 
4040 


Label 


SD0828 
SD4004 
SD40 40 


Description 


No error 

Asynchronous session call accepted but not 
complete 

Send/receive rejected; data traffic cleared 
or inactive 

Improper State 

~RSP received, cancel this request; look in 
SC ESD for sense data 

~RSP returned by host; application should 
examine sense data 

Invalid input control indicators; application 
should examine sense data 


AIF sense data are associated with RCIRHI: 


Description 


Reply not possible, session partner quiesced 
LAST not allowed for this session 
REPLY or LAST required 


Received Interrupt Type 


This field contains the interrupt type if one is received 
for the application during the execution of this session 
call. 


Error Code or Sense Data Received 


This field can contain detailed information about an 
error condition or sense data from a remote LU. 
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Example: 


The following session call sends a whole message of 256 bytes 
with left byte alignment with FM header. This SSSEND session 
call is the first and only SSSEND session call for this 
message. This SSSEND session call is executed asynchronously 
and requests a definite response. 


SSSEND ,,256,L, ASYNC, RLCLR,MCMP, FMH, ROD 
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$SSI_ - Send Interrupt 


The SSSI session call is used to send Data Flow Control 
commands to the session partner or to pass control information to 
the System Service Control Point or to the AIF. 


FORMAT 

[label] SSSI [sccb pointer] Pls S$B4 
[,send data buffer] P2: SC BUF 
[,send buffer length] P3: SC _DLG 
[,{RIL}] P4: SC_ICT.SCRHBI 
[, type] P5: SC_SIN 
[, {REPLY P6: SC_ICT.SCSWRP 

LAST} ] | SC_ICT. SCSLST 

[,sense data] P7: SC_SSD 


ARGUMENTS 

sccb pointer 
This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register $B4. 

send data buffer (SC _ BUF) 


A pointer to the application's send data buffer. This 
parameter is required only if you are sending CNM data. 


send data buffer length (SC_DLG) 
The length in bytes of the send data in the buffer. The 
maximum allowable size is the MAXIMUM RU SIZE which has 
been configured minus three. This parameter is required 
only if you are sending CNM data. 
R|L (SC_ICT. SCRHBT) 
This argument specifies whether data starts on the left 
(L) or right (R) byte of the buffer address word. This 
parameter is required only if you are sending CNM data. 
type (SC_SIN) 
This field contains the interrupt type for this send. 


Refer to the $SCCB template (Appendix E) for possible 
values for this field. 
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REPLY (SC_ICT.SCSWRP) 
LAST (SC_ICT. SCSLST) 


If the application specifies LAST, the end bracket 
indicator is set. 


If the application specifies REPLY, the change direction 
indicator is set. 


sense data (SC _ SSD) 


This field contains the sense data if the specific 
interrupt type calls for it. If the application places 
the sense data in registers SR6 and $R7, then this 
parameter is specified as register S$R7 or =SR7. If the 
literal sense data value is included for this parameter, 
then it must be in a form acceptable as the operand of an 
LDI instruction, such as, =2'08240000'. 


DESCRIPTION 


The SSSI session call is used to send the following three 
types of informations 


1. Send data flow control commands to the session partner 
2 Pass control information to the AIF. 


3. Pass statistical information to the SSCP. 


The format of the buffers that you create to send CNM al 
and maintenance statistics are detailed in Section 6. 


NOTE 
The $SSI session call is always made synchronously. 
RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15, 
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In addition to the general return codes, the following values 
are possible: | 


Value 


0000 
0003 


0012 
0014 
0015 
0032 


0040 
0803 


Label 


RMNOER 
RMRNEG 


RMIRHI 
RMIINT 
RMICOD 
RMDTCL 


RMIMPS 
RCNEGC 


The following 


Value 


0828 
4004 
4040 


Label 


SD0828 
SD4004 
SD40 40 


Description 


No error 

-~RSP returned by host; application should 
examine sense data 

Invalid input control indicators; application 
should examine sense data. 

Invalid Interrupt Type 

Invalid status word or user code 
Send/receive rejected; data traffic cleared 
Or inactive, 

Improper State 

-~RSP received, cancel this request; refer to 
SC_ESD for sense data 


sense data are associated with RCIRHI: 


Description 


Reply not possible, session partner lial 
LAST not allowed for this session 
REPLY or LAST required 


Received Interrupt Type (SC_INT) 


This field contains an interrupt type if one is received 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 


This field contains either detailed information about an 
error condition or sense data if received from a remote 


LU. 


Example: 


The following session call sends a data flow control command, 
LUSTAT, with change direction indicator and the sense data 
0824 to the session partner. (LUSTAT is a label whose value 
is found in the SCCB.) 


SNDINT 


SSSI 


ree p=LUSTAT, REPLY,=Z'08240000' 
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SSSRSP - Send Response 


The SSSRSP session call requests that the AIF send a response 
to a previous message which requires a response. 


FORMAT 


[label] S$SSRSP [sccb pointer] Pl: S$B4 
[, {SYNC |ASYNC}] P2: SC_ICT.SCRINS 
[,{PRSP P3: SC ICT. SCSRSP 
NRSP : SC_ICT. SCSNEG 
WAIT FOR RTR|NO RTR}] 
[,sense] P4: SC SSD 


ARGUMENTS 
sccb pointer 


This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register S$B4. 


SYNC|ASYNC (SC_ICT. SCRTNS) 


This parameter indicates whether execution of this call 
is synchronous or asynchronous, 


NRSP (SC_ICT.SCSRSP) 
PRSP (SC ICT. SCSNEG) 


This argument indicates whether to send a positive 
response or a negative response, 


If a negative response is indicated (NRSP), the LU sends 
a negative response accompanied by whatever sense data is 
found in the SCCB. If the user wishes no sense data to 
be sent, he must provide a sense data of nulls, 


WAIT FOR _RTR|NO RTR 


Tf the data flow control command BID is rejected by the 
application program, this parameter indicates whether the 
session partner should wait for the Ready to Receive 
(RTR) or if none is to be sent, 


If WAIT FOR_RTR is indicated, the AIF sends a negative 
response with sense data 2Z2'0814'; if NO RTR is indicated, 
the AIF sends a negative response with sense data 
2°'0813'. 
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sense (SC_SSD) 


This four-byte field provides sense data if NRSP is 
specified. If no sense data is to be sent, this field 
should be set to nulls by the application. 


DESCRIPTION 


The SSSRSP session call sends either a negative or a positive 
response to a previous message on behalf of the application. 
Tf the response is negative, the Sepe ace es0e also has the 
option of sending sense data. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: | 


Value Label Description 

0000 RMNOER No error 

0803 RMNOEV Asynchronous session call accepted but not 
complete 

0040 RMIMPS Improper State 

0032 RMDTCL Send/receive rejected; data traffic cleared 

0012 RMIRHI Invalid input control indicators; application 
should examine sense data 

The following AIF sense data are associated with RCIRHI: 

Value Label Description 

4041 SD4041 Response type improperly indicated 

Example: 


The following session call sends a negative response on 
behalf of the application and sets the sense data to nulls. 


SSSRSP ,,NRSP,=0000 
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SSTERM - Terminate Session 


The SSTERM session call terminates the AIF session. 
FORMAT 


[label] SSTERM [sccb pointer] Pl: $B4 
[ - {NORM | ABNORM} J P2: SC ICT. SCATRM 


ARGUMENTS 
sccb pointer 
This parameter contains the address of the SCCB to be 


used for this session. If£ not declared, the address is 
assumed to be in register $B4. 


NORM|ABNORM (SC_ICT. SCATRM) 


NORM or ABNORM indicates to the host the reasons for 


which this session is being terminated 
DESCRIPTION 


The SSTERM session call terminates the AIF session. 
Termination can be either normal or abnormal. Whether it is 
normal or abnormal is indicated by a parameter within the 
SSTERM session call, 


® I£ the SSTERM indicates normal termination, an orderly 
termination message is sent to the session partner's LU. 


® If the SSTERM indicates abnormal termination, the 
following events occur: 


~ The AIF LU terminates the session, 


- The AIF sends an abnormal termination message to inform 
the host LU. 


After the session is terminated, the LU task is again 
available for other users. 


Abnormal termination can be issued at any time; the last 
session call is cancelled if it is not completed. 


NOTE 


The SSTERM session call is always made synchronously. 
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RETURN CODES | 
The application should check the return code after each 
execution of a session cali. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 

0000 #$RMNOER- No error 

0040 RMIMPS Improper State (only applies to normal 
termination) 

The following sense data are associated with RCIMPS: 

Value Label Description 

200D SD200D Response required : 

2040 SD2040 Normal termination rejected; data on receive 

_ queue 
2041 £=§SDd2041 Transaction not completed yet 
Received Interrupt Type 


This field contains the interrupt type, if one is 
received during the execution of a normal termination. 


Error Code or Sense Data Received | 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. 

Example: 


The following session call causes the AIF session to 
terminate normally. 


DONE  $STERM_ ,NORM 
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SSTEST — Test for Events 


The SSTEST session call tests conditions for the session 
whose SCCB is pointed to by register SB4. 


FORMAT 

[label] SSTEST [sccb pointer] Pl: S$B4 
ARGUMENT 
sccb pointer 


This parameter contains the address of the SCCB to be 
used for this session. If not declared, this address is 
assumed to be in register S$B4. 


DESCRIPTION 


This session call tests conditions for the session whose SCCB 
is pointed to by register $B4. Executing this session call 
causes the AIF to immediately report to the application one 
of the following conditions in register SRl: 


1. No event 

2e interrupt received 

3. Asynchronous order completed or cancelled 

4. Permission to send after a send was rejected due to data 
traffic inactive or pacing) 

Data has been received for which there is no outstanding 
order. 


Conditions 2 and 3 can coexist. 


If an interrupt was received, the Received Interrupt Type and 
the Error Code Or Sense Data Received fields in the SCCB 
contain information pertaining to the type of interrupt. 


If an asynchronous order were completed or cancelled, then 
the AIF delivers the return code of the completed order 
immediately and the application must examine all pertinent 
fields in the SCCB. 


If data has been received for which there is no outstanding 
order, the user must issue a SSRECV session call to gain 
access to this data. Nothing is delivered to the user as a 
result of the SSTEST session call, but the length of the 
received data is found in the SC ADL of the SCCB. 
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NOTE 


SSTEST is the only session call that can be 
executed while an asynchronous caili is 
outstanding. This session call is always made 
synchronously. If there were an asynchronous 
order outstanding, the condition is tested, 
reported, and the order remains outstanding. Once 
the test determines that the order has been 
completed, the call is no longer outstanding. 


RETURN CODES 

The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then “masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label $$ Description 

0800 RCNOEV No Event 

0001 RMPTSN Permission to send 

0002 RMDRNR Data received but no read 
Received Interrupt Type (SC_INT) 


This field contains the interrupt type, if there is one 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU, | 

Receive Data Buffer Length (SC_ADL) 


This field contains the actual length of the received 
data in bytes. 


Example: 


This session call tests the status of the session indicated 
by the SCCB to which register -$B4 is pointing. 


CHECK SSTEST 
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SSWANY - Wait on Events 


The SSWANY-session call causes the AIF to issue a MOD 400 
system "wait any" on behalf of the application. The application 
remains dormant until one of the requests is complete. 


FORMAT : 
[label] SSWANY 
ARGUMENT 
This session call has no arguments, 
DESCRIPTION 


The SSWANY session call causes execution of the application 
program to be suspended until any asynchronous request 
terminates. Asynchronous requests other than AIF requests 
also cause control to return to the SSWANY session call 
executor providing that the P-bit in the request block was 
set by the executor prior to the execution of the SSWANY 
macrocall. | 


Unless you have an outstanding call, you should not issue a 
SSWANY session call. I£ you do issue a SSWANY session call 
with no outstanding asynchronous call, the AIF returns an 
RCNOUT return code to indicate that there are no orders 
outstanding, 


If an application had more than one session established, with 
outstanding asynchronous orders on multiple sessions, 
executing a SSWANY session call returns control to the 
application with register SB4 containing the SCCB address of 
the session whose request has completed. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the SSWANY session 


call can return return codes according to the following 
conventions: 
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1. If, after a SSWANY session call is executed, register SB4 
contains the address of the SCCB, then register $Rl 
contains the AIF session call return code. 


2. If, after a SSWANY session call is executed, register S$B4 
contains the address of the terminated request block, 
then register $Rl contains the completion status for that 
request block. 


Upon return, registers $Rl and $B4 contain the following 
information: 


| Other Asynchronous 
AIF Call Complete | Call Complete 


ADDRESS OF SCCB ADDRESS OF TERMINATED 
: REQUEST BLOCK 


AIF CALL | POSTED COMPLETION 
RETURN CODE STATUS OF COMPLETED 
: REQUEST BLOCK 


NOTE 


This session call is always made synchronously. 
When this call is executed, the AIF issues a MOD 
400 “wait any" on behalf of the application. fThe 
application program remains dormant until one of 
the requests is complete. If an application does 
any asynchronous AIF processing, the application 
should never execute a MOD 400 SWAITA. This 
command causes unspecified results. 


Example: 


This session call causes the application program to remain 
dormant until an asynchronous request terminates, 


WAIT SSWANY 


2-44 GR11-01 


$SACEB 
$SEBAC 


SSACEB -—- ASCII-To-EBCDIC Conversion Routine 
SEBAC —- EBCDIC~-To-ASCII Conversion Routine 


Converts data between ASCII and EBCDIC,. 
FORMAT 

label §$SACEB|$SEBAC 
ARGUMENT 
There are no arguments associated with this macro, 
DESCRIPTION 
These session calls convert data between ASCII and EBCDIC. 
Since IBM handles data in EBCDIC and DPS 6 handles it in 
ASCII, you may sometimes wish to convert data from one to the 


other, either before sending or before receiving. 


The Application Interface Facility software provides the 
following macros to perform these conversions. 


SSACEB ASCII To EBCDIC Conversion 
SSEBAC  EBCDIC To ASCII Conversion 
When either of these macros is activated, you must initialize 


registers $B2, S$B4, SR2, $R4&4, and $R6 to contain the values 
listed in Table 2-2. If you wish to convert in place, $B2=SB4. 


Table 2-2. Register Contents at Conversion. 
Taesisces[ ements Cd 
| SB2 Pointer to buffer to be converted 
Pointer to buffer to contain converted data 


| Index for buffer to be converted 

| Function code (SSACEB=1; SSEBAC=2) 
Index for buffer to contain converted data 
| Length of data in bytes 


NOTE 
The maximum length of data that can be converted 


by a Single call is 32,767 bytes. 
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Section 3 
PROGRAMMING 

LU TYPE 0 SESSIONS 
IN COBOL 


This section describes the session calls that the COBOL 
programmer uses to converse over a Session Type O with host 
transaction programs. Topics include: 


@ COBOL session calls 
@ Session call format 
® Programming Considerations 
- Synchronous vs. Asynchronous Processing 
- Working Storage Section 
~-~ Checking the Return Code 
@ Session Calls. 
COBOL SESSION CALLS 
The session calls used by the Application Interface Facility 
(AIF) in a COBOL application program call corresponding Assembly 
language subroutines using the "CALL...USING..." verb. (These 
calls are listed in Table 3-3.) 
The parameters that the session calls use are positional. 
They are defined in the WORKING-STORAGE SECTION of the COBOL 
program. In this manual, these parameters are defined in the 


discussion of the WORKING-STORAGE SECTION and are listed without 
redefinition in the format description of each session call. 
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At the completion of each session call, when control is 
returned to the application, a return code is placed in the 
RETURNS field. This return code indicates whether a call has 
been completed error free. The application should check the 
return code after each session call to verify that the call was 
completed error-free. 


A sample COBOL program is provided in Appendix C to 
demonstrate the use of the AIF session calls in a COBOL program. 


SESSION CALL FORMAT a 

The session calls used by the AIF in a COBOL program 
reference Assembly language subroutines which include 
system-provided macrocalls. The COBOL session calls have a list 
of arguments that must be specified each time a session call is 
executed. These arguments, which you have defined in the 
WORKING-STORAGE SECTION, correspond to parameters in the SCCB 
that are used by the Assembly language subroutine. The AIF COBOL. 
session calls follow the conventions for COBOL (described in 
detail in the COBOL 74 Reference (Order No. CZ34). 


When an AIF session call is executed, it defines one or more 
groups of sessions. Each group of sessions is reserved for a 
specific host CICS or IMS system. The AIF can either Log on to 
the host system at initiation or it can wait for an application 
to initiate the session before sending a logon request. The time 
of logon is a configuration option. 


An application requests to initiate a session with a reserved 
LU by executing the CSINIT session call. The AIF checks the 
availability of that LU and assigns it if it is available. If 
the specified LU is unavailable, the AIF checks first for an 
available reserved LU, second for an available preestablished LU, 
and then for any available LU to assign to the session. The AIF 
either returns the address of the LU with which the session is 
started, or rejects the request if there is no LU available. 


A DPS 6 application gains access to a host-initiated session 
by executing a CSACPT session call. Executing the accept session 
call causes the application to be connected to the host-initiated 
session and causes the LU to send a positive response to the 
host, accepting the session. 


PROGRAMMING CONSIDERATIONS 


The special considerations that the COBOL programmer must 
bear in mind fall into three categories: 


- Synchronous vs. Asynchronous Processing 
-  WORKING-STORAGE SECTION 

- Host-initiated sessions 

e Checking the return code, 


ih WG) DO fp 
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Synchronous vs. Asynchronous Processing 


The AIF session calls can be processed either synchronously 
Or asynchronously. 


SYNCHRONOUS PROCESSING 


Synchronous processing implies that when the application 
passes an instruction to the AIF for processing, it waits for the 
application to complete that instruction before continuing. 


In Figure 3-1, a CSINIT session call has been issued 
synchronously. The application completes its segment of 
processing and passes the request to the AIF. fThe AIF executes | 
the CSINIT session call completely and passes the return code to 
the application. The application does not process other 
instructions while the AIF is executing the CSINIT session call. 


SYNCHRONOUS PROCESSING 


ISSUES 
SESSION 


CALL 
APPLICATION CONTINUES PROCESSING 
PROGRAM Ce ee ee re 


ACCEPTS THE 
REQUEST (DONE) 
ALF i t 


EXECUTES SESSION CALL 
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Figure 3-1. Synchronous Processing 


ASYNCHRONOUS PROCESSING 


Asynchronous processing implies that when the application 
passes an instruction to the AIF for processing, the application 
continues to process other instructions while it waits for the 
AIF to complete that instruction, 


In Figure 3-2, a CSINIT session call has been issued 
asynchronously. The application completes its segment of 
processing and passes the request to the AIF. While the AIF 
executes the CSINIT session call, the application is processing 
other instructions. In order for the application to find out 
that the AIF has finished executing the CSINIT session call, the 
application must execute a CSWANY or a CSTEST session call. 
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ASYNCHRONOUS PROCESSING 
omer A ESA EE NTE PESOS SSWANY 
8 


“ISSUES | 
SESSION OTHER PROCESSING 
CALL { CONTINUES PROCESSING 
APPLICATION cceeeeenemeneeeenenenein ERE eee RS On eee 7 
PROGRAM ; 
i 


ACCEPTS 
THE REQUEST OONE 


AIF | { 


EXECUTES SESSION CALL 
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Figure 3-2. Asynchronous Processing 


Each time you issue an asynchronous order, you must check the 
receive queue before you can receive information. You can do 
this by either the CSTEST or the CSWANY session call. These two 
session calls differ as follows: 


1. The CSTEST session call checks to see if there is 
information in the queue to be received and immediately 
reports back to the application. This call can be 
executed any time you wish to check for an outstanding 
order, and as often as you wish to check, because the 
application regains control immediately after the test is 
completed. 


2. The CSWANY session call checks for information on the 
- queue and waits until there is information waiting before 
it returns control to the application. 


WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION defines the area to be used as 
the SNA work area. The parameters specified in these fields are 
passed to the SCCB when the session calls are executed. 


The following parameters must be defined in the WORKING- 
STORAGE SECTION. These parameters are used to create the session 
call control block which is used by the Assembly language 
subroutines you are calling. 


Figure 3-3 shows a sample WORKING-STORAGE SECTION in which 
the SNA work area has been defined. The data-names that are used 
here are examples; you can name them according to your own naming 
conventions. 
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DATA DIVISION. 
| WORKING-STORAGE SECTION, 


177  SNA-WORK-AREA — PIC X(200). 

177 NODE-NAME PIC X(8) VALUE "AIF501". 

177  REMOTE-LU-NAME PIC X(8) VALUE "AO6CICS". 

/77 STD-NAME PIC XX VALUE "BB", 

/77  SYNC-CALL PIC X VALUE "S", 

177 ASYNC-CALL PIC X VALUE "A", 

177 RESTART PIC X VALUE "R", 

177 NO-RESTART PIC X VALUE "N". 

177  SESSION-ID PIC X(4). 

177 MSG-RESYNC-SEND-SQN PIC .9(5) VALUE 0. 
77 MSG-RESYNC-RCV- SQN PIC 9(5) VALUE 0. 
77 SEND-BUFFER PIC X(80). 

177 SEND-BUFFER-SIZE PIC 9(5) VALUE 80. 

177 DATA-BUFFER-ALIGNMENT PIC X VALUE "L". 

177 REPLY-REQUEST PIC X VALUE "R". 
77 MSG-COMPLETE PIC X VALUE "Y". 

177 FMB PIC X VALUE "N", 

177 =RQD PIC X VALUE "N", 

|77  RECEIVE-BUFFER PIC X(80). 

177 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 

177 MSG PIC X VALUE "Y". 

177 RECEIVED-DATA-LENGTH PIC 9(5) VALUE 0. 

(77 INTERRUPT-DATA-LENGTH PIC 9(5) VALUE 0. 

| 77 WORK-AREA-ID  -«~ PTC K(4). 

| 77  SEND-RESPONSE-TYPE PIC X VALUE "=", 

|77 SENSE-DATA PIC X(8) . 


| OL RETURNS. 
03 "SESSION- ABORT PIC X VAL 
, : PIC X VAL 


03 
03 PIC ¥ 
03 Q-CAN PIC 3 
03 SERV—REQ- COMP PIC 
03 COBOL-ERROR PIC 
| 02 RETURN-B PIC 
| 77 INTERRUPT-TYPE PIC 
177  RCVD-SENSE PIC 
| Ol TIMEOUT. 
02 DATEL1. 
03. YY PIC 99 VALUE 0. 
03 MM PIC 99 VALUE 0. 
03 DD PIC 99 VALUE 0. 
O02 TIME]. 
03 HH PIC 99 VALUE 0. 
03 MN PIC 99 VALUE 0. 
| 03 ssss PIC 9(4) VALUE 0. 
177 TERMINATE-TYPE PIC X VALUE "N", 


177 GET-ATTR-TYPE PIC 99 VALUE "O01", 


Figure 3-3. WORKING-STORAGE SECTION for AIF 
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O01 


| 77 
Ol 
77 
| O1 
; 01 


OUTPU T—-CONTROL-WORD. 


02 REPLY-REQUESTED-CD PIC X VALUE "N", 
02 DEFINITE-RESP—~REQ PIC X VALUE "N", 
02 LAST—-MSG-RCVD-EB PIC X VALUE "N". 
02 FMH-IN-RCVD~DATA PIC X VALUE "N*, 
02 BEGIN=MSG-RCVD=BC PIC X VALUE "N". 
02 END-MSG-RCVD-EC PIC X VALUE "N", 
02 SET~SEND-RECV-SEQ PIC X VALUE "N". 
02 APPL-~RESEND-REQUIRED PIC X VALUE "N*. 
02 HOST-RESEND~REQUIRED PIC X VALUE "N*. 
CONVERT=-FROM—-FIELD PIC X(20). 

CONV ERT~FROM~LEFT-POSIT COMP-1 VALUE 1. 
CONVERT-TO-FIELD PIC X(20). 

CONV ERT~ TO-LEFT~ POSIT COMP=1 VALUE 6. 
CONVERS ION-LENG TH COMP=1 VALUE 10. 


Figure 3-3 (cont.). WORKING-STORAGE SECTION for AIF 


These fields are defined as follows: 


SNA~WORK~-AREA 


This input parameter is the name of a contiguous memory 
area that is at least 200 bytes long. This corresponds 
to the "sccb pointer" ergumen’ of the Assembly language 
session calls. | 


If your program will be running multiple sessions, you 
must define a unique SNA-WORK-AREA for each session, 


Example: 


77. SNA-WORK~AREA PIC X(200). 


NODE~NAME 


This input parameter contains the name of the AIF node on 
the DPS 6 with which the session is being established, 
This field contains up to eight alphanumeric characters. 
Example: 


77  NODE-NAME PIC X(8) VALUE "SNANODE1". 


REMOTE-LU~-NAME 


This input parameter contains the name by which the 
remote LU is Known to this application. This field 
contains up to eight alphanumeric characters. The 
REMOTE-LU-NAME equates to the APPL VTAM macro on the 
host. 
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Example: 

77. REMOTE-LU-NAME PIC X(8) VALUE "AO6CICS ". 
STD-NAME 

This input parameter contains the two alphanumeric 


Character field which is the session type descriptor | 
name. The STD is defined in the AIF configuration file. 


Examples: 
77 STD-NAME PIC X(2) VALUE "BB". 


SYNC= CALL 
ASYNC~CALL 


These input parameters indicate whether execution of the 
call is to be synchronous or asynchronous. Each field 
contains one character, either S or A. Both parameters 
must be included. 


Examples: 
77 SYNC-CALL PIC X VALUE "S", 
77 ASYNC~CALL PIC X VALUE "A", 
RESTART 
NO= RESTART 


These input parameters indicate whether or not the 
application wishes to restart an abnormally terminated 
session. Each field contains one character, either R or 
N. Both parameters must be included. . 


Examples: 

77 RESTART PIC X VALUE *°R", 

77 NO-RESTART PIC X VALUE "N", 
SESSION-ID 


If RESTART is specified, the AIF places a unique session 
identifier in this field before returning control to the 
application. This field contains four system-supplied, 
alphanumeric characters that can be used to restart an 
abnormally terminated session. This field should be 
stored if restart is a possibility or if you plan to 
execute multiple sessions. 


Examples: 


77. SESSION-ID PIC X(4). 
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MSG~-RSYNC~SEND-SQN 
If RESTART is specified, the AIF places the sequence 
number of the last message sent in this field each time 
the application does a send. This field contains up to 
five numeric characters and should be stored after each 
send in case a RESTART is necessary. 
Example: 
77 MSG-RSYNC-SEND-SQN PIC 9(5) VALUE 0. 
MSG-RSYNC~RCV— SON 
If RESTART is specified, the AIF places the sequence 
number of the last message that the application has 
received in this field each time the application issues a 
receive. This field can be up to five numeric characters 
and should be stored after each receive so that it can be 
retrieved if a RESTART is necessary. 
Example: 
77 MSG~RSYNC=RCV~SQN PIC 9(5) VALUE 0. 
SEND-BUFFER 
This input parameter sets up the buffer for the messages 
to be sent. It can contain up to 32,767 characters. If 
the data in the send/receive buffers must be converted 
between ASCII and EBCDIC, the application must take care 
of the conversion. Two macros are provided for this 
purpose, CSASEB and CSEBAS. 
Example: 
77 SEND-BUFFER PIC X(80). 
SEND-BUFFER-SIZE 


This input parameter contains the length of the send data 
buffer, The maximum buffer size is 32,767 bytes, 


Example: . 
77 SEND-BUFFER-SIZE PIC 9(5) VALUE 80. 
DATA~BUFFER-ALIGN 


This input parameter specifies whether data starts in the 
left (L) or right (R) byte of the buffer address word. 


Example: 
77 DATA-BUFFER-ALIGN PIC X VALUE "L". 
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REPLY-REQUEST 


This input parameter indicates whether the message being 
sent is now complete (L), and if the application expects 
a reply to this message (R). LAST sets the end bracket 

indicator (not valid with CICS applications); REPLY sets 
the change direction indicator, 


Example: 


77 REPLY-REQUEST PIC X VALUE "R". 


MSG- COMPLETE 


EMH 


This input parameter indicates whether a complete message 
is to be sent or single response units which must be 
assembled into a chain. Possible values are "Y¥" or "N", 
Example; 


77 MSG~-COMPLETE PIC X VALUE "Y". 


This input parameter indicates whether the function 
management header (FMH) is part of the data to be sent. 
Possible values are Y or N. 

Example ¢: 


77 FMB PIC X VALUE "N*. 


This input parameter indicates whether a definite 
response is to be sent. Possible values are "Y¥" or "N*®, 


Examples 


77 RQD PIC X VALUE "N", 


RECEIVE-BUFFER 


This input parameter sets up the buffer that receives the 
data during the session. The length of the data cannot 
exceed the size specified in the RECEIVE-BUFFER-SIZE (80 
Characters in this example). 

Example: 


77 RECEIVE-BUFFER PIC X(80). 


RECEIVE-BUFFER-SIZE 


This input parameter designates the size of the 
RECEIVE-BUFFER in characters, 


Example: 
77 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 
MSG 
This input parameter designates whether the message being 
delivered to the application's buffer is a complete 
message or a message segment. If a whole message is 
being delivered, the AIF must wait for the entire message 
and determine whether or not it fits into the 
RECEIVE-BUFFER. If the message is too large for the 
receive buffer, the AIF delivers only the size of the 
message so that a new buffer can be assigned. Possible 
values for this parameter are "Y¥" (complete message) or 
"N" (message segment). 
77 MSG PIC X VALUE *"Y". 
RECEIVED~DATA~LENG TH 


This output parameter is to contain the length of the 
data received. | 


Example: 
77 RECEIVED-DATA-LENGTH PIC 9(5) VALUE 0. 
INTERRU PT-DATA~-LENGTH 


This output parameter contains the length of any 
interrupt data that has been received. 


Example: 

77 INTERRUPT-DATA-LENG TH PIC 9(5) VALUE 0. 
WORK~AREA-ID 

This output parameter, which is used by the CSWANY 

session call, contains the SNA-WORK<—AREA value of the 

last COBOL session call that was executed. The 

WORK-~AREA-ID does not have to correspond to the 

SNA-WORK-AREA unless there are no other active sessions. 

Example: 


77 WORK-AREA~ID PIC X(4). 
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SEND-RESPONS E-TYPE 


This parameter indicates the type of response that is 
being sent. The following response types are possible, 


Type Value 
Negative Response rt 
Positive Response mon 
Wait for Ready-to-receive Re 
No Ready-to-receive "N" 
None ee 
Example: 
77  SEND-RESPONSE-TYPE PIC X VALUE "=", 
SENSE-DATA 


This input parameter is required when a negative response 
is being sent. The parameter is specified using 
hexadecimal~coded ASCII characters, 


Example: 
77 SENSE-DATA PIC X(8). 
RETURNS 


This output parameter defines the field into which the 
return code from all AIF session calls is placed. The 
RETURNS field is divided into RETURN-A, which consists of 
six yes/no conditions, and RETURN-B, which contains a 
four character decimal status code to provide Further 
detail about the conditions indicated in RETURN-A. 


The two subfields of RETURNS are presented below and are 
described in Table 3-1. Refer to "Checking the Return 
Code" for more information about RETURNS. 


02 RETURN-A, 
03 SESSION-ABORT PIC X VALUE 'N' 
03 STOP-—RCVD PIC X VALUE 'N', 
03 INTRPT-RCVD PIC X VALUE ‘N'. 
03 SERV-REQ-CANC PIC X VALUE 'N', 
03. SERV-REQ-COMP PIC X VALUE ‘N'., 
03 COBOL-ERROR PIC X VALUE ‘N', 

02 RETURN-B PIC 9(4) VALUE 0. 
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Table 3-1. COBOL Session Call RETURNS Fields 


Field | Meaning 


SESSION-ABORT | LU-LU session or node has been aborted 
| and no longer exists. 


STOP—RCVD | SOPR STOP command received. If the TIME 
| _ | argument is supplied with the STOP 
command, check the TIME field for the 
| time at which the session will be ended. 
| This field indicates how much time you 
have to complete the session. | 


INTRPT- RCVD Interrupt received. See INTERRUPT output 
parameter, 
SERV~REQ—-CANC This request has been cancelled. The 
application must issue it again if 
| necessary. 


SERV-REQ-COMPLETE | This request has been completed. 
COBOL~ ERROR | Error in using COBOL interface to the 
| AIF. See RETURN-B for return code, 
INTERRUPT-TYPE 


This parameter shows the reason for interrupt when one is 
sent or received. 


Examples: 
77 INTERRUPT-TYPE — PIC 99 VALUE 0. 


A complete list of interrupt types is provided in 
Appendix d. 


RCVD-SENSE 
This output parameter contains the hexadecimal | 
representation of the sense data from the host if sense 
data is present. This field corresponds to SC_ESD in the 
SCCB. 
Example: 


77 RCVD-SENSE PIC X(8). 
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TIMEQUT 


This output parameter provides a formatted data area for 
the date and time that a session must be stopped when a 
STOP command is processed for the session or node. This 
field must be 14 decimal digits long, as follows: 


Example: 
Ol TIMEOUT 
02 DATEL. 
03 YY PIC 99 VALUE QO. 
03 MM PIC 99 VALUE 0. 
03 DD | PIC 99 VALUE QO. 
02 TIMEl1. | 
03 HH PIC 99 VALUE QO. 
03 MN PIC 99 VALUE 0. 
03 SSSS PIC 9(4) VALUE 0. 


TERMINATE-TYPE 


This input parameter indicates whether termination is 
normal (N)} or abnormal (A). 


Examples: 
77 TERMINATE-TYPE PIC X VALUE "N", 

GET-ATTR-TYPE 
This input parameter indicates what attribute the CSGTAT 
call is requesting. The only attribute available is 01 
(bind image). 
Example: 
77 GET-ATTR-TYPE PIC 99 VALUE "O01". 

OUT PU T-CONTROL-WORD 
This output parameter provides information about the 
received data. The characteristics that can be specified 
are listed below. Each of these parameters must be 
stated. Possible values are "Y" or "N", 


O01 OUTPUT-CONTROL-WORD. 


02 REPLY-REQUESTED-CD PIC X. 
02 DEFINITE-RESP- REQ PIC XK. 
02 LAST-MSG-RCVD-EB PIC X. 
02 FMH-IN-RCVD-DATA PIC X. 
02 BEGIN-MSG-RCVD-BC PLC. Bs 
02 END-MSG~RCVD-EC PIC KX. 
02 SET-SEND-RECV-SEQ PIC X. 
02 APPL~-RESEND-REQUIRED PIC X. 
02 HOST-RESEND-REQUIRED PIC X. 
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CONVERT-FROM-FIELD 


This input parameter defines the buffer to be converted by 


the ASCII-to-EBCDIC conversion subroutines. The maximum 
size of this buffer is 32,767 bytes. 


Example: 
77 CONVERT-FROM=FIELD PIC X(20). 
CONV ERT~FROM~LEFT= POSIT 


This input parameter provides a starting index for the 
data in CONVERT-FROM-FIELD. | 


Example: 
01  CONVERT-FROM-LEFT-POSIT COMP=1 VALUE 1. 
CONVERT-TO-FIELD 


This input parameter defines the buffer into which the 
converted data wiil be piaced by the ASCII~to-EBCDIC 
conversion subroutines. The maximum size of this buffer 
is 32,767 bytes, 
Examples 
77 CONV ERT= TO- FIELD PIC X(15). 

CONV ERT-TO-LEFT-POSIT 


This input parameter provides a starting index for the 
data in CONVERT~-TO-FIELD.. 


Example: 
01 CONV ERT~TO-LEFT-POSIT COMP-1 VALUE 6. 

CONV ERS TON-LENG TH 
This input parameter contains the length in bytes of the 
data to be converted. The maximum length of this data is 
32,767 bytes. 


Example: 


O01 CONV ERSION- LENGTH COMP-1 VALUE 10. 
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Host-Initiated Sessions 


The AIF supports host-initiated sessions; that is, it accepts 
unsolicited binds. In order to accept an unsolicited bind, an LU 
must be reserved with the HOST INIT SESS parameter specified as Y 
(YES) in the LU entry of the configuration file. 


The node name, STD name, and base level for the program must 
be provided in the LINKAGE SECTION as follows: 


LINKAGE SECTION. 


77 NODE PIC X(8). 
77 STD PIC XxX. 
77 BASE LVL PIC 99. 


PROCEDURE DIVISION USING NODE, STD, BASE LVL. 


If the program is compiled under the Advanced COBOL Compiler, 
you must include the Linker directive LINKN CSLEAD to move the 
node name, STD name, and base level to the Linkage Section. If 
the program is compiled under the Multi-user COBOL Compiler, 
these parameters are moved during compilation. 


When the application program begins execution, it must issue 
a CSACPT session call as the first session call, providing the 
STD name and the node name for the LU to be used. The CSACPT 
session call allows the AIF access to a host-initiated session. | 
The AIF associates the first unsolicited bind (host-initiated 
session request) to the first CSACPT session call from the task 
group that the AIF spawned. 


An unsolicited bind can be for a program designated in the 
AUTO_ATTACH entry of the AIF configuration or it can be any other 
unsloicited bind sent from the host. 


When the AIF receives an unsolicited bind for a specific LU, 
the AIF checks the LU entry for an AUTO ATTACH program. I£ it 
finds one, the AIF spawns a group with the program name as the 
lead task, and passes to the lead task the STD name, node name, 
and base level used in the spawn group If the AIF does not find 
an AUTO ATTACH program in the LU entry, it accepts the session 
and looks for the program name in the first four bytes of the 
first record received, then spawns a group based on the ATTACH 
PROGRAM entry. If none is provided, default values are used to 
spawn the group. | 


The application can issue multiple CSACPTs to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one session, 
all LUs that can receive binds for that application must be 
reserved LUs with HOST INIT SESS=Y. Each of these LUsS must have 
the same group id specified in the LU entry in the configuration 
file. 
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NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must Create an attach 
program table entry with a dummy name (eg., ATTACH 
PROG=ABC), specifying the appropriate spawn group 
parameters, and include an ALIAS for ABC (eg., 
ALIAS=>>SYSLIB2>EC?EXECL) to execute the START 
UP.EC specified in the home directory. Refer to 
SNA Network Configuration for further information. 


Checking the Return Code 


On return from the AIF, a COBOL interface routine fills the 
output parameter fields with the SCCB results from the 
subroutine. 


After the session call is made, a return code is placed in 
the RETURNS field. The RETURNS field is divided into RETURN-A, 
which consists of six yes/no conditions, and RETURN-B, which 
contains a four-character decimal return code to provide further 
detail about the conditions indicated in RETURN-A. 


RETURN-A reports the following conditions: 


SESSION-ABORT-~-The session has been aborted. 
STOP-RCVD=-SOPR stop command has been received. 
INTRPT-RCVD--An interrupt has been received. 
SERV-REQ~CANC--This request has been cancelled. 
SERV-REQ-COMP--This request has been completed. 
COBOL~ERROR=-A COBOL interface error has occurred. 


If the value of COBOL~ERROR is Y, then an error has occurred 
in the COBOL interface to the AIF. The following are the general 
return codes that are in RETURN-B if you have a COBOL error. The 
value of XX is the number of the parameter in which there is an 
error: 


3-16 


Code Meaning 

XX01 Unrecognized parameter 

XX02 Parameter must be 1 byte long 
XX03 Parameter must be 5 bytes long 
XX04 Default not acceptable 

XX05 Node name error 

XX06 Remote LU name error 

XX07 Invalid session-ID 

XX08 Unknown interrupt type 

XX09 Nondecimal digit 

XX10 Nonhexadecimal digit 

XX11 Error in conversion 
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The values o£f both RETURN-A and RETURN-B should be checked 
after the completion of each session call. Since it is possible 
to have more than one Y value in RETURN-A, and to have a value 
greater than zero after a successfully completed call, the 
application should check all fields in RETURN-A and RETURN-B for 
all possible combinations. 


If the return code contains a "no error" message, go to the 
next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
file, go to another segment of the program, or shut down 
completely. 


Additional return codes are listed with the individual | 
session calls to which they pertain. The return codes and their 
values are listed in Appendix D. 

SESSION CALLS 


The AIF session calls used in COBOL programs are detailed on 
the following pages, 


Table 3-2. AIF Session Calls 
Session : 
Call Description 
CSACPT Accept session call 


CSCASR | Cancel outstanding asynchronous r 


equest 


CSGTAT Get attributes 

CSINIT Initiate or restart a session 

CSPOLL | Test for LU associated with task group 

CSRECV | Receive message in application's buffer 

CSRI Read interrupt 

CSSEND Request the AIF to send a message or message 
segment 

CSSI Send interrupt 

CSSRSP | Application instructs the AIF to send a 
response 

CSTERM Terminate session 

CSTEST Test conditions 

CSWANY Wait on any event 

CSACEB ASCII-to-EBCDIC conversion 


CS EBAC 


EBCDIC-to—-ASCII conversion 
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CSACPT 


CSACPT - Accept Session Call 


The CSACPT session call causes the AIF-to connect to a host 
initiated session. 


FORMAT 


CALL "CSACPT" USING SNA~WORK-~AREA 
NODE~NAME 
REMOTE- LU~ NAME 
STD-NAME 
SYNC-CALL 
NO-RESTART 
MSG- RESYNC-SEND-SQN 
MSG-RESYNC-RCV-SQN 
RETURNS 
INTERRU PT-TYPE 
TIMEOUT 
RCVD-SENSE 


DESCRIPTION 


The CSACPT session call causes the AIF to connect to a 
host-initiated session if there is one available. If there 
is no session, the AIF returns and continues processing. The 
LU to which this bind refers is a reserved LU. 


If your application is part of a host-initiated session, the 
CSACPT session call should be the first call executed. When 
this call is completed, the session is in receive state. 


NOTE 
This call is always made synchronously. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. In addition to the values 
described for RETURN-A and RETURN-B in "Checking the Return 
Code," the CSACPT session call can return the following 
values in RETURN—B. 


Value Description 


0000 No error 

0025 ACCEPT Timed out 

0064 Invalid node name 

0153 Invalid STD name 

0154 Invalid LU type in STD 
0155 No LU attached 
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CSACPT 
SESSION-ID 


This four-character field is supplied by the AIF after it 
accepts the session request. The first word is the 
session group name, which is assigned by the AIF to each 
of the sessions running in this session group. This 
‘value is used by the AIF to return a unique one-word 
session identifier for this session. This value is 
stored in the second word. This field is reserved for 
system use and must never be altered by the application, 
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CSCASR 


The CSCASR session call causes the AIF to cancel an 
outstanding asynchronous request, if possible. 


FORMAT 
CALL "CSCASR" USING SNA-WORK~AREA 
DESCRIPTION 


The CSCASR session call cancels an asynchronous request, if 
there is one outstanding; if the previously executed 
asynchronous request was already completed when the CSCASR 
was executed, then the return code from the CSCASR is the 
return code for the completed asynchronous call. If the 
previously executed asynchronous call was not completed when 
the CSCASR was executed, and the AIF succeeded in cancelling 
the request, the return code from the CSCASR session call 
indicates that the call has been cancelled. 


NOTE 


The CSCASR session call cannot be used to cancel 
a CSINIT session call, even if it has been executed 
asynchronously. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSCASR session call, the following combinations are possible: 


@® If SERV-REQ-CANC=Y (all other fields in RETURN-A = N) 
and RETURN-B=0, you have cancelled the previously 
outstanding call. 


e If SERV-REQ-CANC=¥ and RETURN-B>0, the previous call 
completed with error. (RETURN-B contains the error 
code for the previous call.) 


® If SERV-REQ-COMP=Y and RETURN-B=0, the previous 
outstanding call executed. 


In addition to these combinations and the values described 
for RETURN-A and RETURN-B in "Checking the Return Code," the 


CSCASR session call can return the following values in 
RETURN-B. 


Value Description 
0023 No outstanding asynchronous call 
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CSGTAT 


CSGTAT - Get Session Attributes 


‘The CSGTAT session call provides the application with an 
attribute for the session specified in the SNA-WORK-AREA. 


FORMAT 


CALL "CSGTAT" USING SNA-WORK-AREA 
RECEIVE-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA~BUFFER-ALIGN 
GET-~ATTR-TYPE. 


DESCRIPTION 


The CSGTAT session call provides the application with an 
attribute for the session whose SNA-WORK-AREA is specified 
when issuing the call. If you plan to use this session call 
to request the bind image, the STD entry in the AIF 
configuration must indlude the parameter SAVE BIND=Y. 


Special notice should be given to the situation where an 
interrupt is received either prior to or during the execution 
of the CSGTAT session call. 


1. When an interrupt is received before the execution of the 
CSGTAT, the application is given the data that was in the 
receive queue and informed of the interrupt. 


2. If an interrupt is received during the execution of a 
CSGTAT, the order is not completed, control is returned 


to the application, and the return code indicates that an 
interrupt has been received. 


NOTE 
This call is always made synchronously. 
RETURN CODES 
The application should check the return code after each 
execution of a session call. After the completion of the 
CSGTAT session call, the following combinations are possible: 
@ If SERV-REQ-COMP=Y and RETURN-B=0, the receive data 


buffer contains the attributes of the session 
specified, 
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CSGTAT 


e Tf the value of another field in RETURN-A is Y, the 
CSGTAT was not successful, and RETURN-B contains the 
return code to indicate the reason for the error. 


In addition to these combinations and the values 
described for RETURN-A and RETURN-B in "Checking the 
Return Code," the CSGTAT session call can return the 
following values in RETURN<B: 


Value Description 


0000 No error - session established 

0016 Improper state - i.e., trying to receive, but 
in send state 

1013 Receive buffer too small 

1014 Invalid attribute type 

1032 Receive rejected; data traffic 
cleared/inactive 


3-22 GR11-01 


CSINIT 


CSINIT - Initiate Session 
The CSINIT session call can be used in two contexts: 


1. To establish a session between the application and the 
transaction at the host 


2e To restart this session if it has been abnormally 
terminated. 


In issuing the session call, you must indicate for which 
purpose it is to be executed, 


CALL "CSINIT" USING SNA-WORK-AREA 
NODE-NAME 
REMO TE-LU- NAME 
STD-NAME 
SYNC-CALL | ASYNC= CALL 
NO-RESTART 
MSG-RESYNC- SEND-SQN 
MSG-RESYNC-RCV-SQN 
RETURNS 
INTERRUPT-TYPE 
TIMEOUT 
RCVD-SENSE 


The initiate session call requests that the AIF establish a 
session between an LU at the DPS 6 and an LU at che host, and 
that the local LU be assigned exclusively to the 

application. Always specify NO RESTART on initial start-up. 


In the event that the AIF assigns a preestablished session to 
the application, the application should store the 
send/receive sequence numbers, in case a RESTART of this 
session ever becomes necessary. These sequence numbers are 
not reset to zero after each use. To the host, this appears 
as one session. On the local application side, the session 
is a serially reusable resource, 


If multiple sessions are being established, a separate 
SNA-WORK-AREA must be provided for each session. The session 
ID should also be stored so that if a RESTART becomes 
necessary, you can specify which session to restart. 
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CSINIT 


NOTE 


A CSINIT session call, executed asynchronously, can- 
not be cancelled by using the CSCASR session call. 


CSINIT to Restart a Session 


The CSINIT session call is used to restart a session in the 


event that it has been abnormally terminated. 


Restart logic 


and restart rules are described in detail in Section 6. 


RETURN CODES 


The application should check the return code after each 


execution of a session call. 


After the completion of the 


CSINIT session call, the following combinations are possible: 


If SERV-REQ-COMP=Y and RETURN-B=0, the session has 
been initiated successfully. 


If the value of another field in RETURN-A is Y, the 
CSINIT was not successful, and RETURN-B contains the 
return code to indicate the reason for the error, 


In addition to these combinations and the values described 
for RETURN-A and RETURN-B in "Checking the Return Code," the 
CSINIT session call can return the following values in 

RETU RN-B. 


Value 


0000 
0003 
0004 
0016 


0032 
0048 


0049 
0064 
0065 
0150 
0151 
0152 
0153 
0154 
1809 


Description 


No error ~ session established 

Negative response received 

Bind negotiation failed 

Improper state - i1.e., trying to CSINIT with 
RESTART, but not in abnormally terminated 
state 

Restart not possible 

System error - i.@., not enough memory 
available to establish session 

Resource not available 

Invalid node name 

Invalid session-ID (Restart) 

DPS 6 Node not yet active 


No active LU for session 


No LU available for session 
Invalid STD name 

Invalid LU type in STD 

Link failure 
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CSINIT 


Each time you do a CSINIT with RESTART, you should check the 
OUTPUT-CONTROL“WORD to verify the send/receive sequence 
numbers and to find out whether it is necessary to retransmit 
the last message from either the DPS 6 or the host. 


The RCVD-SENSE field contains sense data, if present, as 
listed in Appendix D. 
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CSPOLL 


CSPOLL - Poll Session Call 


The CSPOLL session call checks to see if any LU associated 
with the application program's task group has received an 
unsolicited bind from the remote program. 


FORMAT 

CALL "CSPOLL" USING SNA-WORK~-AREA 
NODE-NAME 
STD-NAME 
RETURNS 


DESCRIPTION 


The CSPOLL session call causes the AIF to test to see if any 
LO associated with the application program's task group has 
been attached (bound) by the remote program. The CSPOLL 
session call is similar to the CSACPT session call except 
that the CSPOLL does not cause a connection between the AIF 
and the application program if a bound unit is found. 


NOTE 
This call is always made synchronously. 
RETURN CODES 


The application should check the return code after each 
execution of a session call. In addition to the values 
described for RETURN-A and RETURN-B in "Checking the Return 
Code," the CSACPT session call can return the following 
values in RETURN~B. 


Value Description 


0064 Invalid node name 

0153 Invalid STD name 

0155 No LU attached 

0005 There is an LU being bound 
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CSRECV - Receive Message 


The CSRECV session call causes the AIF to deliver a message 
or message segment from the session partner to the application's 
buffer. | 


FORMAT 


CALL "CSRECV" USING SNA-WORK-~-AREA 
RECEIVE-BUFFER 
RECEIVE~BUFFER-SIZE 
DATA~BUFFER-ALIGN 
SYNC- CALL | ASYNC-CALL 
MSG 
RECEIVED-DATA~ LENG TH 
OUT PU T-CONTROL-WORD 


DESCRIPTION 


The CSRECV session call causes the AIF to deliver a message 
to the application's buffer from the session partner. 


If the user specifies MSG, then the AIF assembles the chain 
before delivery. If the user's buffer is not large enough, 
the message is not delivered; the actual length of the 
message or message segment is returned to the application in 
the RECEIVED-DATA-LENGTH. The application can either 
reexecute the receive with an adequate buffer, or move N to 
the MSG field and reexecute the receive. If you specify N, 
Single segments are delivered to the application's buffer. 
If the message segment delivered is the last segment, then. 
the AIF sets the end of message bit in the 

OU TPUT~CONTROL-WORD. 


Special notice should be taken when an interrupt is received 
prior to or during the execution of a CSRECV. 


If an interrupt has already been received when the CSRECV 
session call is executed, the application is given the data 
and informed of the interrupt. RETURNS shows either 
SERV~REQ-CANC=Y and INT-REC=Y or SERV-REQ-—COMP=Y and 
INT-REC=Y¥, depending on whether or not the data was in the 
receive queue, ‘ 

If an interrupt is received during the execution of a CSRECV, 
the order is not completed, and return is made to the 
application. 
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Check the OUTPUT-CONTROL-WORD before proceeding, to determine 
if end of message indicator has been received or if the host 
requires a response. | 


RETURN CODES 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSRECV session call the following combinations are possible: 


& If SERV-REQ-COMP=Y and RETURN-B=0, then the CSRECV 
had been completed with no error. 


® If the value of another field in RETURN-A is Y, the 
CSRECV was not successful, and RETURN-B contains the 
return code to indicate the reason for the error, 


If SERV-REQ~COMP=Y, check the OUTPUT-CONTROL-WORD to make 
sure that the beginning of message and end of message 
indicators have been received. If there is no end of message 
indicator, you must do another CSRECV to receive the next 
segment of the message. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSRECV session call can return the following values in 
RETURN-B. 


Value Description 


0000 No error - CSRECV successful 

0016 Improper state - i.e., trying to receive 
while in send state 

0019 Receive buffer too small 


0048 System error - unable to receive 

0050 Receive rejected; data traffic 
Cleared/inactive 

0065 Invalid session-ID 

0066 Asynchronous service request outstanding 

0256 Session unbound by host 


1809 Link failure 


NOTE 
If a RESTART of this session is a possibility, then 


the receive sequence number should be stored by the 
application executing this CSRECV session call. 
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CSRI - Read Interrupt 


The CSRI session call reads interrupt information from the 
host or control information from the AIF LU when there is no 
other AIF session call outstanding. 


FORMAT 


CALL "CSRI" USING SNA-WORK-AREA 
INTERRU PT-DATA~-L ENG TH 


DESCRIPTION 


The CSRI session call enables the application to read 
interrupt information from the host or control information 
from the AIF when there is no other AIF session call 
outstanding. 


If either of the following situations occurs, the condition 
is reported to the application, the SNA-WORK-AREA is updated 
the same way as for CSTEST or CoWAN? and a return is made to 
the application. 


As with any asynchronous call, the application must execute a 
CSWANY or CSTEST session call to determine when the CSRI 
session call is complete and regain control. 


1. When an interrupt is received, the INTERRUPT-TYPE and the 
SENSE-DATA fields in the SNA~WORK-AREA contains the 
appropriate information, 

2. If data has been received for which there is no 
outstanding order, the user must issue a CSRECV to gain 


access to this data. The length of the received data is 
in INTERRUPT-DATA-LENGTH parameter of the SNA-WORK-AREA, 


NOTE 
The CSRI session call is always made asynchronously. 
RETURN CODES 
The application should check the return code after each 
execution of a session call. After the completion of the 


CSRI session call, the following combinations are possible: 


fo) If SERV-REQ-COMP=Y and RETURN-B=0, the interrupt has 
been received with no error. 


S229 GR11-01 


CSRI 


e I£ the value of another field in RETURN-A is Y, the 
CSRI was not successful, and RETURN-B contains the 
return code to indicate the reason for the error. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSRI session call can return the following values in 
RETURN-B. 


Value Description 


0002 Data received but no read 

0016 Improper state - i.e., trying to receive 
while in send state 

0050 Receive rejected; data traffic 
Cleared/inactive 


3-30 GR11-01 


CSSEND 


CSSEND - Send Message 


The CSSEND session call sends a message (chain) or message 
segment (RU) to a session partner, 


FORMAT 

CALL "CSSEND" USING SNA-WORK-AREA 
SEND~BUFFER 
SEND-BUFFER“SIZE 


DATA~BUFFER-ALIGN 
SYNC=CALL | ASYNC-CALL 
REPLY~REQUEST 
MSG-COMPLETE 

FMA 

RQD 


DESCRIPTION 


The CSSEND session call instructs the sending of a message 
(chain) or message segment (RU) to a remote LU. When you are 
sending an entire message (chain), the MSG-COMPLETE parameter 
must be ¥. When sending message segments, the MSG-COMPLETE 
parameter must be N, except for the last segment, when 
MSG-COMPLETE = Y. 


Special notice should be given to the situation where the 
application is executing a CSSEND session call but an 
interrupt is received before or during the execution of the 
call. 


If an interrupt has already been received when the CSSEND 
session call is executed, the application is informed of the 
interrupt. If an interrupt is received during the execution 
of the CSSEND session call, the CSSEND session call 
completes, and when the application executes the CSWANY or 
CSTEST session call, return is made to the application. The 
return code indicates the interrupt received and the result 
of the CSSEND session call, 


NOTE 
If restart of this session is a possibility, then 
the send sequence number and the entire message 


must be saved by the application executing this 
CSSEND session call. 
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RETURN CODES 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSSEND session call, the following combinations are possible. 


@e If SERV-REQ-COMP=Y and RETURN-B=0, the CSSEND has 
been completed with no error. 


@ If the value of another field in RETURN-A is Y, the 
CSSEND was not successful, and RETURN-B contains the 
return code to indicate the reason for the error, 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSSEND session call can return the following values in 


RETU RN-B. 
Value 
0000 
0003 
0016 
0018 
0048 


0050 
0256 


Description 


No error ~ send successful 

Negative response received 

Improper state - i.e., trying to send in 
receive state 

Invalid input control indicator(s) - i.e., 
REPLY-REQUEST improperly indicated 

System error 

Send rejected | 

Session unbound by host 
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CSSI - Send Interrupt 


The CSSI session call is used to send Data Flow Control 
commands to the session partner or to pass control information to 
the System Service Control Point or to the AIF. 


FORMAT 

CALL 'CSSI' USING SNA-WORK-~AREA 
SEND-BUFFER 
SEND-BUFFER-SIZE 
DATA~BU FFER-ALIGNMENT 
INTERRUPT-TYPE 
REPLY-NAME 
SENSE~-DATA 

DESCRIPTION 


The CSSI session call is used to send the following three 
types of information: 


1. Send data flow control commands to the session partner 
2. Pass control information to the AIF, 
3. Pass statistical information to the SSCP. 


A list of interrupt types is discussed in Appendix D. 


The format of the buffers that you create to send CNM, alerts 
and maintenance statistics are detailed in Section 7. 


NOTE 
The CSSI session call is always made synchronously. 
RETURN CODES 
The application should check the return code after each 
execution of a session call. After the completion of the 


CSSI session call, the following combinations are possible. 


& If SERV-~REQ-COMP=Y and RETURN-B=0, the interrupt has 
been sent with no error. 


& If the vaiue of another field in RETURN-A is Y, the 


CSSI was not successful, and RETURN-B contains the 
return code to indicate the reason for the error, 
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In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSSI session call can return the following values in 


RETURN-B. 


Value — 


0000 
0003 
—60016 
0018 
0020 
0021 
0050 


Description 


No error 

Negative response received 
Improper state | 

Invalid input control indicator(s) 
Invalid interrupt type 

Invalid status word/user code 
Receive rejected; data traffic 
cleared/inactive 


3-34 GR11-01 


CSSRSP 


CSSRSP - Send Response 


The CSSRSP session call requests that the AIF send a response 
to a previous message. 


FORMAT 


CALL "CSSRSP" USING SNA-WORK~AREA 
SYNC-CALL | ASYNC- CALL 
SEND-RES PONSE~TYPE 
SENSE-DATA | 


DESCRIPTION 
The CSSRSP session call sends a response toa previous 


message on behalf of the application. The following response 
types are possible: 


Value 
Negative Response FA 
Positive Response we 
Wait for Ready-to-receive 7 -ER® 
No Ready~to-receive as 
None > 


If this response is negative, the application also has the 
option of sending sense data, 


RETURN CODES 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSSRSP session call the following combinations are possible. 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the response has 
been sent with no error. 


€ If the value of another field in RETURN-A is Y, the 
CSSRSP was not successful, and RETURN-B contains the 
return code to indicate the reason for the error, 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSSRSP session call can return the following values in 
RETURN-B. 
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Description 


No error 

Improper state 

Invalid input control indicator(s) - SEND 
RESPONSE TYPE improperly indicated 

Send rejected; data traffic cleared/inactive 
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CSTERM - Terminate Session 
The CSTERM session call terminates the AIF session. 
FORMAT 


CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE 


DESCRIPTION 

The CSTERM session call terminates the AIF session. 

Termination can be either normal or abnormal. Whether it is 

normal or abnormal is indicated by a parameter within the 

CSTERM session call. 

@ If the CSTERM session call indicates normal termination, 
an orderly termination message is sent to the session 
partner's LU, 


If the CSTERM session call indicates abnormal 
termination, the following events occur: 


= The AIF LU terminates the session. 


= The AIF sends an abnormal termination message to 
inform the host LU. 


ted, the LU task is again 


After the session is termina 
available for other users, 


Abnormal termination can be issued at any time; the last 
session call is cancelled if it is not completed. 


NOTE 
The CSTERM session call is always made synchronously. 
RETURN CODES 
The application should check the return code after each 
execution of a session call. After the completion of the 


CSTERM session call the following combinations are possible. 


@ If SERV-REQ-COMP=Y¥ and RETURN-B=0, the session has 
been terminated. 


3-37 GR11-01 


CSTERM 


® If the value of another field in RETURN-A is Y, the 
session was not terminated as intended, and RETURN-B 
contains the return code to indicate the reason for 
the error. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSTERM session call can return the following values in 
RETURN-B. 


Value Description 

0000 No error 

0016. Improper state - i.e., normal termination 
rejected because data is on receive queue 


3-38 GR11-01 


CSTEST 


CSTEST - Test for Events 


The CSTEST session call tests conditions for the session 
whose work area address is provided in SNA-WORK-AREA. 


FORMAT 


CALL "CSTEST" USING SNA-WORK-~AREA 
INTERRUPT-DATA~-LENG TH 


DESCRIPTION 


This session call tests conditions for the session currently 
being executed, Executing this call causes the AIF to 
immediately report to the application one of Ene following 
conditions: 


No event 

Interrupt received 

Asynchronous order completed or cancelled 

Permission to send after a send was rejected due to data 
traffic inactive or pacing 

Data has been received for which there is no outstanding 
Order. 


mn i> G2 RO 
® e eo a 


® 


Conditions 2 and 3 can coexist. 


If an interrupt was received, the INTERRUPT-TYPE and the 
SENSE=DATA fields in the SNA-WORK-AREA contain information 
pertaining to the type of interrupt. 


If an asynchronous order were completed or cancelled, then 
the AIF delivers the return code of the completed order 
immediately, and the application must examine all pertinent 
fields in the SNA-WORK-AREA, 


If data has been received for which there is no outstanding 
order, the user must issue a CSRECV session call to gain 
access to this data. Nothing is delivered to the user as a 
result of the CSTEST session call, but the length of the 
received. data is found in the INTERRUPT-DATA-LENGTH parameter 
of the SNA-WORK-AREA, 
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NOTE 


The CSTEST session call can be executed while an 
asynchronous call is outstanding. This session 
call is always made synchronously. If there was 
an asynchronous order outstanding, the condition 
is tested, reported, and the order remains 
outstanding. Once the test determines that the 
order has been completed, the call is no longer 
outstanding. 


RETURN CODES 


The application should check both RETURN-A and RETURN-B after 
each execution of a session call. After the completion of 
the CSTEST call, the following combinations are possible. 


e If all of the fields in RETURN-A are N and 
RETURN-B=0, there is an asynchronous call 
outstanding. 


* If SERV-REQ-COMP=Y and RETURN-B=0, then the 
previously executed asynchronous call has been 
completed successfully. 


®@ If SERV-REQ-COMP=Y and RETURN-B>O, then the 
previously executed asynchronous call has been 
completed with error, 


® If SERV-REQ—-CANC=Y and RETURN-B>O, then the 
previously executed call has been cancelled for the 
reason designated. 


In addition to these combinations and the COBOL error codes 


described in "checking the Return Code," the CSTEST session 
call can return the following values in RETURN-B. 


Value Description 
0000 No event 


0001 Permission to send - 1.@., a previous attempt 
to send was rejected | 
0002 Data received but no read 
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CSWANY - Wait on Events 


The CSWANY session call causes the AIF to issue a MOD 400 
system "wait any" on behalf of the application. The application 
is dormant until one of the requests is complete. 


FORMAT 


CALL "CSWANY" USING SNA-WORK~AREA 
WORK~AREA-ID 


DESCRIPTION 


The CSWANY session call causes execution of the application 
program to be suspended until any asynchronous request 
terminates. Asynchronous requests other than the AIF 
requests also cause control to return to the CSWANY session 
call executor providing that the P-bit in the request block 
was set by the executor prior to the execution of the CSWANY 
macrocall. 


You must specify an SNA-WORK-AREA when issuing a CSWANY. If 
an application has multiple sessions established, specifying 
an SNA-WORK-AREA does not imply that the CSWANY responds only 
to an event on that session. If an application has more than 
one session established, with outstanding asynchronous orders 
on multiple sessions, executing a CSWANY session call returns 
control to the application with WORK-AI 


REA~ID containing the 
session ID of the session whose request has completed. 


NOTE 
The CSWANY session call is always made synchronously. 
RETURN CODES 


The application should check both RETURN-A and RETURN-B after 
each execution of a session call. After the completion of 
the CSWANY call, the following combinations are possible. 


® If SERV-REQ-COMP=Y and RETURN-B=0, then the 
previously executed asynchronous call has been 
completed successfully. 


@ If SERV-~REQ-COMP=Y and RETURN-B>O, then the 
previously executed asynchronous call has been 
completed with error. 


@ If SERV-REQ-CANC=Y and RETURN-B>0, then the 
previously executed call has been cancelled for the 
reason designated, 


3-41 GR11-01 


~CSACEB 


CSACEB - ASCII-to—EBCDIC Conversion 
The CSACEB session call converts data from ASCII to EBCDIC. 
FORMAT 


CALL "CSACEB" USING SNA~WORK~-AREA 
CONVERT=-FROM-FIELD 
FROM-LEFT-MOST- POSITION 
CONVERT~-TO-FTIELD 
TO~LEFT~MOST- POSITION 
CONVERS ION-LENGTH 


DESCRIPTION 

The CSACEB session call converts data from ASCII to EBCDIC. 
The parameters used with this session call provide the 
buffers containing the data to be converted and the converte 
data. | 


The maximum length of data that can be converted is 32,767 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM-FIELD and the CONVERT-TO-FIELD. 
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CSEBAC - EBCDIC=-to-ASCII Conversion 
The CSEBAC session call converts data from EBCDIC to ASCII. 
FORMAT 


CALL "CSEBAC" USING SNA-WORK~AREA 
CONVERT-FROM-FIELD 
FROM-LEFT-MOST- POSITION 
CONVERT~-TO-FIELD 
TO- LEFT-MOST- POSITION 
CONVERS ION-LENGTH 


DESCRIPTION 

The CSEBAC session call converts data from EBCDIC to ASCII. 
The parameters used with this session call provide the 
buffers containing the data to be converted and the converted 
data. 


The maximum length of data that can be converted is 32,767 
bytes. 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 
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Section 4 

PROGRAMMING 

LU TYPE 6.2 CONVERSATIONS 
INASSEMBLY LANGUAGE 


This section describes the Assembly language verbs that are 
used in an LU Type 6.2 conversation with host service or 
transaction programs. Topics include: 


€ BaSic Conversation Verbs 


® Programming considerations 
- Getting started 
- Creating a verb parameter block 
- Conversation states 
- Checking the return code 


@® Individual conversation verbs 
- Format 
- Descriptions 
-~ Return codes. 


BASIC CONVERSATION VERBS 


The basic conversation verbs used by the AIF are 
system-provided macrocalls. These verbs have a list of arguments 
that can be specified by the programmer or accepted in their 
existing form. The AIF verbs follow the conventions for Assembly 
language (described in detail by the Assembly Language 
Reference). The first field of the verb can have an optional 
label. If no label is used, at least one blank space must 
precede the verb. 
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When the AIF is activated, it defines the resources to be 
made available to the session while that conversation is active. 
The AIF allocates a session for a conversation from a group of 
available LU sessions. The AIF can either log on to the host 
system at initiation or it can wait for an application to request 
to allocate a conversation before sending a logon request. The 
time of logon is a configuration option. 


An application requests to allocate a conversation with a 
remote transaction program by executing the SSALLO verb. The AIF 
looks for an available session to allocate for that 
conversation. If no session is immediately available, the 
application can specify whether control should be returned to the 
program. The conversation uses a session for only the time it 
takes to execute the verb. After the verb is executed, the 
conversation retains its resources until a deallocate verb is 
issued or a deallocate confirmation is received from the host 
application. 


An application gains access to a host-initiated conversation 
by executing a SSATCH verb. When an ATTACH command is received 
from the host, the AIF loads the transaction program by spawning 
a group with the attached application as the lead task, and sends 
a response to the host that the program is attached. The DPS 6 
programs must issue a SSATCH verb before any other verbs are 
issued. | 


User-selected items are known as arguments. These arguments 
are poSitional within the verb--the order of positional arguments 
indicates the variables to which data is applied. Thus, the 
order of your arguments must be the same as the order of the 
positional arguments within the verb. 


The following rules govern the use of positional arguments: 
® Omitted arguments that precede an included argument must 
be indicated by the presence of a delimiting comma for 

each omission. 

@® One or more spaces must separate the verb name from its 
arguments, with a comma between each argument. (The 
horizontal tab character is equivalent to a space.) 


e A semicolon at the end of a line indicates that the next 
line is a continuation line, | 


In the following example, the first argument has been 
omitted; its position has been held by a delimiting comma. 
Spaces separate the verb name from its arguments. 


SSALLO , 'AIFNODE1','LU104' ,=Z'20FOFOFQ' ,AVAIL, CONFIRM 
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The arguments for these conversation verbs are found in the 
verb parameter block (VPB). A VPB must be provided for each 
verb. These fields can be altered either during initialization 
or by including the appropriate arguments in the verb itself. 


At the completion of each verb, when control is returned to 
the application, a return code is placed in register $Rl. The 
return code can also be found in VP RCD. This return code 
indicates whether a verb has been completed error free. The 
application should check this return code after each verb to 
verify the return status of the verb. Additional information, if 
desired, can be found in the output control word (VP_ OCT) , and 
other output parameters as defined for individual session calls. 


PROGRAMMING CONSIDERATIONS 


Many of the programs that use the AIF conversation verbs are 
written in Assembly language. These applications may be 
reentrant and may not require more than one occurrence of a given 
verb, 


Special considerations that the programmer must bear in mind 
fall into four categories, which are discussed in this section: 


@e Getting Started 

e Creating a verb parameter block 
@ Conversation state 

e Host initiated sessions 
Checking the return code. 


When using the AIF verbs in an Assembly cangued? program, 
remember the following steps: 


l. In order to use the verbs and utility macros included 
with the AIF, you must first make them available to your 
program. When beginning your program, include the 
following statement: 


LIBM '>>LDD>MACROS>MAC USER' 


2. Then issue the macrocalls SSVPB and SSAIRC to define the 
VPBB and return codes in memory. 


3. You must also set aside a workspace with room for the 


stack, the VPB, and your send/receive buffer, as in the 
following example: 
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* 


* WORK LOCATIONS: STACK, VPB, & SEND/ RECEIVE BUFFER 
. : : : 


WKSP EQU 0 BEGINNING OF aaa 
MYSTACK —EQU WKSP+50 REGISTER STACK 

CNTLWD EQU MYSTACK FOR PROGRAM CONTROL 
MYV PB EQU CNTLWD+1 BEGINNING OF VPB 
BUFFER EQU MYVPB+VP_ SIZ SEND/ RECEIVE BUFFER 
BUF SZ EQU 2000 BUFFER SIZE 

WKSPSZ EQU BUFFER+BUF SZ WORKSPACE SIZE 


Verb Parameter Block 


Communication between the application program and the AIF is 
through the application-provided VPB. The programmer should note 
that the same VPB is used each time a particular conversation is 
referenced until that conversation is deallocated. If a program 
is to run multiple conversations, you must supply a separate VPB 
for each conversation. 


When the application provides parameters with a given verb, 
the macrocode updates the appropriate VPB fields before executing 
an AIF monitor call. If any of the fields have been changed, the > 
new values are in the VPB when you reexamine it. 


The first parameter of each verb is the location of the VFB, 
with the exception of SSWAIT. If not specified as the first 
parameter of the verb, this pointer must be in register $B4 
Allowable formats for this parameter and all address pointers are 
the same as found in the "Addressing Parameters" section of the 
System Programmer's Guide, Vol. 2. 


Where a value rather than an address is provided ina 
parameter, allowable formats are: 


1. (*)$B1(. SR) 


2. LABEL 

3. =SRI1 

4. =literal 
5. I!LABEL 


Conversation verb users must provide a separate VPB for each 
conversation. The programmer can provide the parameters for the 
verbs by moving the parameters to the VPB before issuing the verb 
(Example 1) or when issuing the verd (Example 2). 


The following examples show both methods of creating a VPB 


for the SSATCH verb. Which convention you choose to follow 
depends upon the requirements af your program. 
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Example 1: 


The following example shows the parameters in the VPB being 
loaded before issuing the verb. Offsets to the VPB are 
provided in the displacement macro SSVPB. (Refer to the VPB 
template in Appendix I for appropriate offsets.) 


NODENM DC 'AIF505 ' 
STD NM DC 'BB! 
SLV_VL DC 0. 


LDB S$B4, $B6.VPB Load VPB address to SB4 
LDI S$B6.NODENM Get first 4 bytes of nodename 
SDI $B4.VP NOD Store first 4 bytes of 

~ nodename in VPB 
LDI S$B6.NODENM+2 Get second 4 bytes of nodename 
SDI $B4.VP_NOD+2_ Store second 4 bytes of 


nodename in VPB 
LDR $R2,$B6.STD NM Get STD name 
STR $R2,$B4.VP_STD Store STD name 
LDR §$R2,$B6.SLV_VL Set sync level to none 
STR §$R2,$B4.VP_SLV Store the sync level 


SSATCH 


Example 2: 


The following example shows the SSALLO verb with the 
parameters specified within the macrocall. 


This sequence causes the equivalent of the following to be 
issued: 


vA 


SSATCH ,'AIF505','BB' ,NONE 


Conversation States 


The subset of verbs that a program can issue at a given time 
is determined by the state of the conversation at that time. For 
example, if a conversation is in receive state, it cannot issue a 
send verb without first issuing a verb to change the conversation 
to send state. The program must be aware of the state of the 
conversation, which can be found in the VP CST field of the VPB. 
Executing many of the basic conversation verbs causes the 
conversation to change its state, 


Table 4-1 lists the conversation states and their 
Gefinition. Table 4-2 shows what verbs a conversation can issue 
from each state. The description of each verb includes the state 
of the conversation at the end of execution. 
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Table 4-1. Conversation States 


State 


Definition 


i 
2 | room t 
i 


The state in which the program can allocate a 
| conversation. 


|The state in which the program can send data 
| or request confirmation. 


The state in which the program can request 
| confirmation or flush the LU's send buffer to 
prepare to change states. 


Receive | The state in which the program can receive 
data or confirmation information. 


Confirm | The state in which the program can send a 
| conf irmation ~—s 


Table 4-2. Conversation States From Which Verbs Can Be Issued 


Conversation State 


SSALLO 
SSATCH 
SSCONF 
SSCNFD 


SSDEAL flush 
SSDEAL sync level 
SSDEAL abend 


SSFLSH 
SSPONR 
SSPTOR 
SS RAW 


 $SRTOS 
SSSDAT 
SSSERR 
SSWAIT 
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Host-Initiated Sessions 


The AIF supports host-initiated sessions; that is, it accepts 


‘unsolicited binds. In order to accept an unsolicited bind, an LU © 


must be reserved with the HOST INIT SESS parameter specified as Y 
(YES) in the LU entry of the configuration file. 


The program name, node name, STD name, and base level are 
provided to the application program by the AIF via the standard 
MOD 400 parameter list Refer to the MOD 400 System Programmer's 
Guide, Volume 2 (Order No. CZ06.) When the application program 
begins execution, it must execute a SSATCH verb as the first 
conversation verb, providing the STD name and the node name for 
the LU to be used. The node name and the STD name provided with 
the SSATCH verb must be the same as the parameters passed by the 
AIF. 


After the SSATCH verb is executed, the application is in 
receive state. The SSATCH verb allows the AIF access toa 
host-initiated session. The application must execute a receive 
to have access to the bind. The AIF associates the first 
unsolicited bind (host-initiated session request) to the first 
$SATCH session call from the task group that the AIF spawned. 


An unsolicited bind can be for a program designated in the 
AUTO ATTACH entry of the AIF configuration Or it can be any other 
unsloicited bind sent from the host. 


When the AIF receives an unsolicited bind for a specific LU, 
the AIF checks the LU entry for an AUTO ATTACH program. If it 
finds one, the AIF spawns a group with the program name as the 
lead task, and passes to the lead task the STD name, node name, 
and base level used in the spawn group If the AIF does not find 
an AUTO ATTACH program in the LU entry, it accepts the session 
ana looks for the program name in the first four bytes of the 
first record received, then spawns a group based on the ATTACH 
PROGRAM entry. If none is provided, default values are used to 
Spawn the group. | 


The application can issue multiple SSATCHs to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one session, 
all LUs that can receive binds for that application must be 
reserved LUs with HOST INIT SESS=¥. Each of these LUs must have 
the same group id specified in the LU entry in the configuration 
file. 
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NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must create an attach 
Program table entry with a dummy name (eg., ATTACH 
PROG=ABC), specifying the appropriate spawn group 
parameters, and include an ALIAS for ABC (eg., 
ALIAS=>>SYSLIB2>EC?EXECL) to execute the START 
UP.EC specified in the home directory. Refer to 
SNA Network Configuration for further information. 


Checking the Return Code 


After a session call is executed, the Application Interface 
Facility (AIF) returns a status code known as the return code to 
the Verb Parameter Block (VPB) to indicate how the call was 
completed. The application should examine this return code at 
the completion of each verb to determine if the call has been 
completed error free. 


The return code has 16 bits and is placed in register SR1 by 
the AIF before control is returned to the application program. 
The value of the return code can also be found in VP_RCD. 


Bits 0 through 4 have special meaning and represent general 
AIF return codes that could occur for any session call. If the 
bit is on, then the return code is set. These bits should be 
examined individually, then "masked out" so that the application 
can examine the remaining bits. The following masks are provided 
in the $SAIVR macrocall for checking each of the first five bits 
as follows. 


Bit 0 VRAB ND 


The conversation has abended or deallocated. An SOPR 

command has been entered that caused the conversation to 
abend, or the conversation was deallocated by the remote 
program. The specific reason for this termination can be 
found in the bits 5 through 15 of the return code or in VP 
ABT. 


Bit l VRSTOP 


An SOPR STOP command has been received that causes the 
conversation to be deallocated when the specified time has 
elapsed. If no time is entered, the conversation is 
deallocated immediately. During this time the application 
can continue to process, but should normally terminate. 


The time found in the TIME argument (VPB.VP TIM) is the 


wall clock time in standard MOD 400 48-bit format, at 
Which the session terminates. 
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Bit 2 VRRINT 


This bit is reserved and should not be used by the 
application. 


Bit 3 VRSCNL 


The verb has been cancelled; it is not processed. If the 
application desires the order to be processed, the verb 
must be reexecuted. The specific reason for which the 
call has been cancelled can be found in the bits 5 through 
15 of the return code, 


Bit 4 VRSCMP 
The service request (verb) has been completed. 


A return code can indicate more than one condition occurring 
at the same time. For example, it can indicate both a 
deallocation and a completed call, or an SOPR STOP and a 
completed call. 


The masks VRABND, VRSTOP, VRRINT, VRSCNL, and VRSCMP are 
provided for your convenience in checking bits 0 through 4. 
After you have checked these bits, null them out and examine bits 
5 through 15. If you choose to null these bits by using VRMASK, 
Which is provided in the software (VRMASK=07FF), use the 
following statement: 


AND $R1,=VRMASK 


Bits 5 through 15 contain the return code for a completed or 
cancelled call. One way of doing this part of the return code is 
to issue a “compare” instruction as follows: 


CMR SR1L,=VROKAY (VROKAY = 0000) 
BE CONT 1 


If the return code contains an "okay" message, branch to the 
next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
file, branch to another segment of the program, or shut down 
completely. 


Appendix F contains a complete list of return codes. These 


labels and their hexadecimal values can be found in the macro 
SSAIRC (AIF Return Codes). 
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Individual Verb Formats 


Table 4-3 lists the basic conversation verbs that are 
Supported by the AIF. 


following pages. 


Table 4-3. AIF LU Type 6.2 Verbs 


$SALLO 
SSATCH 
SSCONF 
SSCNFD 
SSDEAL 
SSFLSH 
SSPONR 
SSPTOR 
SS RAW 

SSRTOS 
SSSDAT 
SSSERR 
SSWAIT 
SSACEB 
$SEBAC 


Allocate verb 
Attached verb 
Confirm verb 
Confirmed verb 
Deallocate verb 
Flush verb 
Post on Receipt verb 
Prepare to Receive verb 
Receive and Wait verb 
| Request to Send verb 
Send Data verb 
Send error verb 
Wait verb 
Converts ASCII to EBCDIC 


Converts EBCDIC to ASCII 
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These verbs are described in detail on the 


GR11-01 


$SALLO 


SSALLO - Allocate Verb 


The SSALLO verb is used to allocate a conversation between a 
local program and a remote program. 


FORMAT 

[label] SSALLO [vpb address] Pl: $B4 
[,node name] P2: VP NOD 
| remote lu name] P3: VP_RLN 
[,trans program name] P4: VP_TPN&VP_TPL 
rata name] P5: VP STD 
[,return control] P6: VP_ICT. VBRCTL 
[,syne level] P7: VP_SLV 


ARGUMENTS 
Vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


node name (VP_NOD) 


This parameter identifies the AIF node to which the 
application is directing this verb. This field contains 
eight alphanumeric characters. If£ you are loading the VPB 
yourself, and your node name contains fewer than eight 
characters, this field must be left=-justified and 
space-filled. 


remote lu name (VP_RLN) 


The name by which the remote LU is known to this 
application, This field contains eight alphanumeric 
Characters. If you are loading the VPB yourself, and the 
remote lu name contains fewer than eight characters, this 
field must be left-justified and space-filled. 


trans program name (VP_TPN + VP_TPL) 
This parameter contains the name of the transaction 
program to be attached to the host. This host program 


becomes the session partner of the program executing this 
SSALLO. 
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SSALLO 


How you enter the transaction program name determines how 
the string is passed to the host. If you enter an ASCII 
String, =A'name', $SALLO translates the string to EBCDIC 
and puts the Length of the string in VP TPL. If you enter 
a hexadecimal string, =Z'hexname', where hexname contains 
an even number of hexadecimal digits, SSALLO puts the 
length of the string in VP_TPL and does not translate it. 


If you are loading the VPB yourself, clear bit VP 
TPL.VBTPNT to indicate that you want the transaction 
program name translated, or set this bit to indicate that 
you do not want the TPN translated. Put the length of the 
transaction program name into the right byte of VP_TPL. 


std name (VP_STD) 


The configured session type descriptor (STD) which lists 
the attributes of the conversation to be allocated, as 
defined in the configuration for this node. This field 
consists of two alphanumeric characters, 


return control (VP_ICT.VBRCTL) 


This parameter indicates whether the local LU should 
return control to the local program, in the event that it 
is unable to allocate a conversation. | 


The following arguments are valid for this parameter: 


@ AVAIL ~- allocates a session for the conversation 
before returning control to the program. If the 
local LU fails to obtain a session for the 
conversation, an allocation error is reported in 
SSALLO return code. 


@ IMMED —- allocates a session for the conversation if 
one is immediately available and then returns control 
to the session. 


- If a session is immediately available, the 
conversation is allocated and control is returned 
with a return code of OKAY. The local LU must be 
the contention winner, — 


- If a session in not immediately available, the 
conversation is not allocated and control is 
returned with a return code of VRUNSU. 


- If a session is immediately available and an error 


occurs in allocating a conversation, the error is 
reported in the return code for the SSALLO. 
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SSALLO 
NOTE 


If an LU is configured with the contention winner as 
non-negotiable, the LU must be both reserved and 
preestablished to be available for allocation with a 
return control of IMMED. 


sync level (VP_SLV) 


This parameter indicates how the local and remote programs 
perform confirmation processing on this conversation. The 
following arguments are valid for this parameter: 


@ NONE —- do not perform confirmation processing on this 
conversation. Programs that specify NONE do not 
issue any verbs or recognize return parameters 
related to synchronization, 


@ CONFIRM - performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters, but do not recognize return parameters 
related to synchronization. 


DESCRIPTION 


The $SALLO verb first allocates a session between a local LU 
and a remote LU, then allocates a conversation over that 
Session, between a local program and a remote program, and 
puts the conversation in send state. Once you have allocated 
a conversation over a session, that session becomes available 
to other conversations until this conversation is 
deallocated. 


The SSALLO verb is used to allocate conversations for either 
transaction programs or service component programs. The 
parameters issued with this verb identify the partners in the 
conversation and provide bind information about the 
conversation. 


The SSALLO verb must be issued before any other verbs that 
refer to the specified conversation. At the completion of 
the SSALLO verb, the conversation enters send state. 


RETURN CODES 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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SALLO 


In addition to 
are possible. 


Value 


0000 
0040 
—60042 
0049 
004B 
0096 
0097 
0098 
0099 
OO9A 


In addition, 


Label 


- VROKAY 


VRINOD 
VRITPN 
VRSLNS 
VRIRTC 
VRNNAC 
VRNLAC 
VRNOAV 
VRISTD 
VRILUT 


if 


the general return codes, the following values 


Description 


OK 

Invalid node name 

Invalid transaction program name (null value) 
Synchronization level not supported by LU 
Invalid return control 

Node not yet active 

No active LU for session | 

No LU available for session 

Invalid STD name 

Invalid LU type in STD 


you specified a return control of IMMED, the 


following return code is possible. 


Value 
0001 


Label 


Description 


VRUNSU Unsuccessful 
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$SATCH 


SSATCH - Attached Verb 


The SSATCH verb is used by an attached program to gain access 
to the conversation, 


FORMAT 

[label] SSATCH [vpb address] Pl: S$B4 
[,node name] P2: VP_NOD 
[,std name] P3: VP_STD 
[,syne level] P4: VP_SLV 

ARGUMENTS 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register S$B4. 


node name (VP NOD) 


This parameter identifies the AIF node to which the 
application is directing this verb. This field contains 
@ight alphanumeric characters. If you are loading the VPB 
yourself, and your node name contains fewer than eight 
characters, this field must be left-justified and 
space-filled. 


Std name (VP_STD) 


The configured session type descriptor (STD) which lists 
the attributes of the conversation to be allocated. This 
field consists of two alphanumeric characters. 


sync level (VP_SLV) 


This parameter indicates how the local and remote programs 
perform confirmation processing on this conversation. 


The following arguments are valid for this parameter: 
@ NONE - do not perform confirmation processing on this 
conversation, Programs that specify NONE do not 


issue any verbs or recognize return parameters 
related to synchronization. 
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SSATCH 


e CONFIRM ~- performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters, but do not recognize return parameters 
related to synchronization, 


DESCRIPTION 


The SSATCH verb causes the program to be connected to a 
host-initiated conversation. When the host issues an ATTACH 
command to allocate a conversation, the AIF loads the DPS 6 
transaction by spawning a group with the program as the lead 
task. When the program is loaded, it must issue the SSATCH 
verb to tell the host that the transaction program has been 
attached to the session, and the node name and STD name with 
which it is associated. 


If the application is intended for host-initiated sessions, 
the SSATCH should be the first verb executed. After the 
SSATCH verb is executed, the conversation enters receive 
state. 


RETURN CODES 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible. | 


Value | Label Description 


0000 VROKAY OK 

0040 VRINOD Invalid node name 

0099 VRISTD Invalid STD name 

0098 VRNOAT No LU attached by Remote TP 

00D0 VRAESP Synchronization level not supported by LU 
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SSCONF 


SSCONF - Confirm Verb 


The SSCONF verb sends a confirmation request to the remote 
program. 


FORMAT 

[label] SSCONF [vpb address] Pl: SB4 
ARGUMENTS 

vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION 


The $SCONF verb requests that the remote program send an 
acknowledgment, and waits for a response. The SSCONF verb is 
used in confirmation processing, and in verifying that the 
conversation has been allocated or data has been received. 
SSCONF is not used if the conversation has been allocated 
with a synchronization level of NONE. This verb causes the. 
LU to flush its send buffers. 


When the SSCONF verb is issued in defer state following a 
SSPTOR, the conversation enters receive state, When the 
SSCONF verb is issued in defer state following SSDEAL, the 
conversation enters reset state. When the SSCONF verb is 
issued in send state, the state does not change. 


RETURN CODES 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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SSCONF 


In addition to the general return codes, the following values 
are possible for bits 5 through 15. 


Value 


0000 
0047 


0041 
0011 
0018 
OOFL 
O0F2 
0O0F3 
0004 
0007 
0103 
0100 
0101 
0102 
0310 
0711 
0712 
0713 
0714 


Label 


- VROKAY 


VRVBNS 


VRIRID 
VRNSDF 
VRLRNF 
VRDAPG 
VRDASV 
VRDATM 
VRPEPR 
VRSEPR 
VRPGER 
VRUNBI 
VRSSHU 
VRURTO 
VRADLU 
VRLKFL 
VRADPU 
VRACSA 
VRSABT 


OUTPUT CONTROL 


The request to 
(VP_OCT.VBRRTS) indicates whether the remote program has 


issued a request to send notification, 


Description 


OK 

Verb not supported (conversation was 
allocated with a sync level of none) 
Invalid resource ID 

Not in send/defer state 

Logical record not finished yet 
Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Program error--purging 

Service program error, purging 
Resource failure, no retry 

Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out Dy SOPR command 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ‘ABORT! AIF node 

$S abort AIF group 


WORD 


send received field in the output control word 


requesting the local 


program to enter receive state and placing itself in send 


state. 


If VP OCT. VBRRTS is set, 


then this condition is true, 
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S$SCNFD 


SSCNFD - Confirmed Verb 


The SSCONFD verb sends a Sonedenation response to the remote 
program. 


FO RMAT 

[label] S$SCNFD [vpb address] Pl: SB4 
ARGUMENTS | 

vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION 


The SSCNFD verb sends a confirmation to a remote program, 
always in response to a request for confirmation. The SSCNFD 
verb is used in confirmation processing and error detection. 
SSCNFD is not used if the conversation has been allocated 
with a synchronization level of NONE. 


The what-received parameter of the previous receive and wait 
verb determines what state the conversation enters after the 
SSCNFD is executed. If the SSRAW returned a confirm 
indicator, the conversation enters receive state. If the 
SSRAW indicated confirm-send, the conversation enters send 
state. If the $SRAN indicated confirm-deallocate, the 
conversation enters reset state. 


RETURN CODES 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible for bits 5 through 15: 


Value Label Description 


0000 VROKAY OK 

0047 VRVBNS Verb not supported (conversation was 
allocated with a sync level of none) 

0041 VRIRID Invalid resource ID 

0018 VRNCNF Not in confirm state 
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SSDEAL 


SSDEAL - Deallocate Verb 


the 


The SSDEAL verb deallocates the specified conversation from 
transaction program. 


FORMAT 
[label] S$SDEAL [vpb address] Pl: $B4 
[, type] P2: VP_TYP 
[0G 1NO_ LOG ] P33 VP_ ICT. VBLGDA 
[,log data buffer] P4: VP_ BUF 
[,log data length] P5: VP_ DLG 
ARGUMENTS — 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


type (VP_TYP) 


This parameter specifies whether the deallocation is to be 
completed as part of this verb or deferred until another 
verb is issued or a certain condition is met. 


The following arguments are valid for this parameter: 


& SYNC L = perform deallocation according to the sync 
level specified when the conversation was allocated: 


- If sync level = NONE, SSDEAL flushes the local LU's 
send buffer and deallocates normally. 


- If sync level = CONFIRM, SSDEAL sends a confirmation 
request to the remote LU and, if the return code is 
OK, deallocates the conversation normally. If the 
return code is UNSUCCESSFUL, SSDEAL returns the 
conversation to its previous state. 


r) FLUSH - flushes the local LU's send buffer and 
deallocates the conversation normally. 


The following type arguments are for error handling, and 
are application-dependent., 


© PROG AB - flushes the local LU's send buffer when the 


conversation is in send or defer state and 
deallocates the conversation abnormally. 
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SSDEAL 


@ SVC_AB - flushes the local LU's send buffer when the 
conversation is in send or defer state and 
deallocates the conversation abnormally. 


& TIM AB - flushes the local LU's send buffer when the 
conversation is in send or defer state and 
deallocates the conversation abnormally. 


NOTE 


If ABEND deallocation occurs when the conversation 

is in send state, logical record truncation can 

occur. When the conversation is in receive state, data 
purging can occur. 


LOG |NO LOG 


This parameter indicates whether or not the system error 
log is transferred to the transaction when the 
conversation is deallocated in an ABEND situation. 


log data buffer 


This parameter is a pointer to the product specific error 
data that is kept in the system error logs of the local 
and remote LUs. This parameter is used only with an ABEND 
deallocation type. 


log data length 


This parameter specifies the length of the log data buffer 
in bytes. The maximum allowable length of this buffer is 


32,767 bytes. 


DESCRIPTION 


The SSDEAL verb deallocates the specified conversation from 
the transaction program. The parameters issued with this 
verb identify the conversation to be deallocated and the type 
of deallocation to be performed. 


After the SSDEAL verb is executed, the conversation enters 
reset state. 


NOTE 


The AIF does not support a state that corresponds to the 
AIF deallocate state. If you receive a deallocate-confirm 
message after a SSCNFD verb, the conversation has been 
deallocated and its resources returned to the system. The 
conversation is then in reset state. 
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S$SDEAL 


RETURN CODES 


The application should check the return code after each 


execution of a verb. 


any verb. 


"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 


are possible for any execution of the SSDEAL. 


Value 


0000 
0010 
0018 
004C 


Label 


VROKAY 
VRNSND 
V RLRNF 
VRITYP 


Description 


OK 

Not in send state 

Logical record not finished yet 
Invalid type specified 


If you executed the SSDEAL with a type of ABEND, the 
following return codes are possible. 


Value 


OO1A 


004C 


Label 


VRPDEA 
VRITYP 


Description 


Improper state 
Invalid type specified 


If you executed the SSDEAL with a type of SYNC L and the 
conversation was allocated with synchronization level of 
CONFIRM, the following return codes are possible, 


Value 


00 47 


004C 
0011 
0018 
00BO 
00CO0 
00C1 
00C2 
00C3 
00D0 
Q0D1 
00D2 
00D3 
O0E0 
OOF1 
OOF2 
00F3 
0007 


Label 
VRVBNS 


VRITYP 
VRNSDF 
VRLRNF 
VRAETN 
VRAEPI 


VRAEIP 


VRAESI 
VRAECM 
VRAESP 
VRAERP 
VRAENR 
VRAETR 
VRAE AN 
VRDAPG 
VRDASV 
VRDATM 
VRSEPR 


Description 


Verb not supported (conversation was 
allocated with a sync level of none) 
Invalid type specified 

Not in send/defer state 

Logical record not finished yet 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 

Security not valid 

Conversation type mismatch 

Syne level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Service program error, purging 
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Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
These bits should be examined individually, then 


SSFLSH 


SSFLSH - Flush Verb 
The SSFLSH verb flushes the local LU's send buffer. 
FORMAT 
[label] $SFLSH [vpb address] Pl: SB4 
ARGUMENTS 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION 


The SSFLSH verb flushes the local LU's send buffer. Any 
information that was in the buffer is sent to the remote 
LU. The SSFLSH verb is useful for transferring incomplete 
buffers of data to the remote LU, thus avoiding a delay in 
processing. | 


If you execute a SSFLSH when the conversation is in defer 
state following a SSPTOR, the conversation enters receive 
State. If you execute a SSFLSH when the conversation is in 
send state, the state of the conversation does not change. 


RETURN CODES 


The application should check the return code after each 
execution of averb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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SSFLSH 


In addition to 
are possible. 


Value 


0000 
0041 
001i 
0103 
0100 
0101 
0102 
0310 
0711 
0712 
0713 


Label 


VROKAY 
VRIRID 
VRNSDF 
VRPEGER 
VRUNBI 
VRSSHU 
VRURTO 
VRADLU 
VRLKFL 
VRADPU 
VRACSA 


the general return codes, the following values 


Description 


OK 

Invalid resource ID 

Not in send/defer state 

Resource failure, no retry 
Session unbound by host unexpectedly 
Session shutdown by host orderly 
You are timed out by SOPR command 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) 'ABORT' AIF node 
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SSPONR 


SSPONR - Post on Receipt Verb 


The SSPONR verb causes the LU to signal the conversation when 
there is information to receive. 


FORMAT 
[label] SSPONR [vpb address] Pl: S$B4 
{,fi11) P2: VP_ICT.VBFILL 
[,length] P3: VP_DLG 
ARGUMENTS 


Vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. = 


fit 


This parameter specifies when posting should occur in 
terms of the length specified in the next param 


The following arguments are valid for this parameter. 


BUFFER = data is buffered into units o£ the length 
Sp din the next parameter. Posting occurs when 


pecifie : 
the buffer is full or the end of Gata is indicated. 


G LL = posting occurs when a complete or truncated 
logical record is received, or when part of a logical 
record is received that is as long as or longer than 
the length specified in the next parameter. 


length 


This parameter specifies the maximum length of the receive 
buffer, 


DESCRIPTION 


The SSPONR verb causes the LU to signal the conversation when 
there is information to receive, The information can be 
data, status information, or a request for confirmation. The 
SSPONR can be used with the SSWAIT verb or the SSRAW to allow 
you to continue with other program processing while waiting 
for data from the host. 
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SSPONR 


Executing the SSPONR verb does not cause the state of the 
conversation to change. In order to execute the SSPONR, you 
must be in receive state. If you are not in receive state, 
you must first issue the SSPTOR verb. | 


RETURN CODES 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 VROKAY OK 
0041 VRIRID Invalid resource ID 
0016 VRNRCV Not in receive state 


If the return code indicates OKAY and the output control word 
indicates that the conversation has been posted, then posting 
has occurred and the LU has information that the program can 
receive. The program has the option of issuing a SSRAW at 
this point or it can ignore this posting by issuing a SSWAIT, 
and receive this data at a later time. 


OUTPUT CONTROL WORD 


The conversation posted field in the output control word 
(VP_OCT.VBPOST) indicates whether the conversation has been 
posted. If this bit is true, the conversation is posted and 
SSRAW can be used to receive data or information. If this 
bit is false, posting is active for this conversation and 
SSWAIT can be used to wait for posting to occur. 
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SSPTOR - Prepare to Receive Verb 


The SSPTOR verb changes the state of the specified 
conversation from send to receive. 


FORMAT 
[label] S$SPTOR [vpb address] Pl: $B4 
[, type] P2: VP_TYP 
[,locks] P3: VP_ICT.VBLOCK 
ARGUMENTS 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


type 


This parameter specifies whether the prepare-to-receive is 
to be completed as part of this verb or deferred until 
another verb is issued or a certain condition is met. 


The following arguments are valid for this parameter: 


© SYNCLVL = perform the prepare-to-receive according to 
the synchronization level specified when the 
conversation was allocated: 


- Tf sync level = NONE, SSPTOR flushes the local LU'‘s 
send buffer and enters the receive state, 


- If sync level = CONFIRM, SSPTOR sends a confirmation 
request to the remote LU and, if the return code is 
VROKAY, enters the receive state. If the return code 
is VRUNSU, SSPTOR returns the conversation to its 
previous state. ~ 


@ FLUSH - flushes the local LU's send buffer and enters 
the receive state, 


4-27 GR11-01 


SSPTOR 
locks 


This parameter specifies whether the local program must 
wait for a reply when a request for confirmation is 
executed following a SSPTOR. This parameter is relevant 
only if the conversation was allocated with a sync level 
Of CONFIRM, and the SSPTOR is executed with a type of 
SYNCLVL. 


The following arguments are valid for this parameter. 


& SHORT —- Control is returned to the local program when 
an acknowledgment is received. 


e LONG - control is returned to the local program when 
data is received from the remote program following an 
acknowledgment. 

DESCRIPTION 


The $SPOTR verb changes the state of the conversation from 
send to receive. The parameters issued with this verb 
identify the conversation whose state is being changed, the 
type of prepare-to-receive to be performed, and when control 
is to be returned to the local program after the receive. 


After the SSPTOR is executed, the conversation enters receive 
state. If the SSPTOR is unsuccessful, the conversation 
remains in send state. 


RETURN CODES © 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


The value you specify for type determines what return codes 
are possible, In addition to the general return codes, the 
following values are possible for all types. 

Value Label Description 


0000 VROKAY OK 
004C VRITYP Invalid type specified 


4-28 GR1L1-01 


In addition, 
CONFIRM, 


Value 


0007 
0011 
0018 
0041 
00 47 


00B0 
Q0C0 
0OC1L 
00C2 
00C3 
00DO 
OOD1L 
00D2 
00D3 
00E0 
QOOFL 
00F2 
O00F3 
0004 
0103 
0100 
O101 
0102 
0310 
0711 
0712 
0713 
0714 


Label 


VRSEPR 
VRNSND 
VRLRNF 
VRIRID 
VRVBNS 


VRAETN 
VRAEPI 
VRAEIP 
VRAESI 
VRAECM 
VRAESP 
VRAERP 
VRAENR 
VRAETR 
VRDAPG 
VRDASV 
VRDATM 
VRPEPR 
VRPGER 


VRADLU 
VREREL 
VRADPU 
VRACSA 
VRSABT 


SSPTOR 


If you executed the SSPTOR with a type of SNCLVL 
and the conversation was allocated with synchronization level of 
the following return codes are possible. 


Description 


Service program error, purging 

Not in send state 

Logical record not finished yet 

Invalid resource ID 

Verb not supported (conversation was 
allocated with a sync level of none) 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 

Security not valid 

Conversation type mismatch 

Sync level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Program error--purging 

Resource failure, no retry 

Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
ACTLU/DACTLU received 

Link £ailure 

ACTPU/DACTPU received 

SA (SOPR) 'ABORT' AIF node 
SS abort AIF group 
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SSRAW - Receive and Wait Verb 


The SSRAW verb causes the LU to wait for data and receive it. 


FORMAT 
[label] SSRAW {[vpb address] Pl: S$B4 

[,data buffer] P2: VP_BUF 

[,data buffer length] P3: VP_DLG 

[£111] P4: VP_ICT. VBFILL 
ARGUMENTS 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


data buffer 


This parameter identifies the buffer set up to receive the 
data from the remote program. 


data buffer length 


This parameter specifies the maximum length of data that 
the program can receive. 


Fill 


This parameter specifies whether data is received in 
logical record format or by buffers. 


The following arguments are valid for this parameter. 


® BUFFER - data is buffered into units of the length 
specified in the data buffer length parameter. When 
the buffer is full or the end of data is indicated, 
it is transmitted to the local program. 


® LL ~- Each complete or truncated logical record is 
transmitted to the local program. when a logical 
record is received that is as long as or longer than 
the data buffer length, the logical record is broken 
up into units of that length. 


4-30 GR11-01 


DESCRIPTION 


SSRAW 


The SSRAW verb causes the LU to wait for data to arrive at 


the specified conversation and receive it. 
can be data, 


confirmation, 


The information 
status information, or a request for 

If there is data in the receive queue when 
this verb is executed, the waiting time is eliminated. 


After 


SSRAW is executed, control is returned to the local program 
and the type of information received is indicated. 


If the conversation is in send state when this verb is 
the local LU flushes its send buffer and the 


issued, 
conversation changes to receive state, 


A send indicator is 


sent to the remote LU, to notify the remote program that it 
can send data to the local program. 


The value of the WHAT RECEIVED parameter determines the state 


of the conversation after the SSRAW is executed. 


If WHAT 


RECEIVED indicates DATA, DATA COMPLETE, DATA INCOMPLETE, Or 
LL TRUNCATED, the conversation enters (or remains in) receive 


state. 2 
enters send state, 


If WHAT RECEIVED indicates SEND, 
If WHAT RECEIVED indicates CONFIRM, 


the conversation 


CONFIRM SEND, or CONFIRM _DEALLOCATE, the conversation enters 
confirm state. 


RETURN 


CODES 


The application should check the return code after each 


execution of a verb. 

and represent general 
any verb, 
"“maske 


gd out" so that the 


through 15. 


Bits 0 through 4 have special meaning 
AIF return codes that could occur for 
These bits should be examined individually, then 
application can examine bits 5 


In addition to the general return codes, the following values 
are possible. 


Value 


0000 
0002 
0003 
0004 
0014 
0018 
0041 
00B0 
00CO0 
00C1 
00C2 
00C3 


Label 


VROKAY 
VRPENT 
VRPETR 
VRPEPR 
VRNSOR 
VRLRNF 
VRIRID 
VRAETN 
VRAEPI 
VRAEIP 
VRAEST 
VRAECM 


Description 


OK 

Program error, not truncating 
Program error, truncating 
Program error--purging 

Not in send/receive state 
Logical record not finished yet 
Invalid resource ID 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 
Security not valid 
Conversation type mismatch 
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00D0 VRAESP Sync level not supported by program 
00D1 VRAERP Reconnect level not supported by program 
00D2 VRAENR TP not available-~-no retry 

00D3 VRAETR TP not available--retry 

Q00EN VRAEAN ACC not valid 

0OFO VRDANM Deallocate normal 

OOF1 VRDAPG Remote dealliocation--ABEND program 
00F2 VRDASV Remote deallocation--ABEND service 
OOF3 VRDATM Remote deallocation--ABEND timer 
0006 VRSETR Service error, truncating 

0005 VRSENT Service error, not truncating 

0007 VRSEPR Service error-—purging 

0103 VRPGER Resource failure, no retry 

0100 VRUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 VRADPU ACTPU/DACTPU received 

0713 VRACSA SA (SOPR) ‘ABORT! AIF node 

0714 VRSABT S$S abort AIF group 


RETURN PARAMETER 
actual data length (VP_ADL) 


This field contains the length of the received data. The 
actual data length includes the two byte binary field that 
specifies the logical record length and the length of the 
record itself. The length can range from 2 to 7FFF. 


OUTPUT CONTROL WORD - 

The request to send received field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 
program to enter receive state and placing itself in send 
state. : 

WHAT RECEIVED 


The WHAT RECEIVED field (VP WAR) defines what the transaction 


program has received, and should be examined when the return 
code is OKAY. The following values are possible within 
VP WAR: 


02 SEND (VBRSND)--the remote program has entered receive 
state causing the local program to enter send state. 
The local program can now issue a SSSDAT. 
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04 


05 


06 


08 


09 


OA 


14 


15 


16 


SS RAW 


CONFIRM (VBRCNF)-~-the remote program has sent a 
confirmation request to the local program. The local 
program can respond by issuing a SSCNFD or another 
verb, such as a SSSERR. 


CONFIRM DEALLOCATE (VBRCDA)--the remote program has 
issued a deallocate with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a SSCNFD or another verb, such 
as a SSSERR. 


CONFIRM SEND (VBRCSN)-~-the remote program has issued 
a prepare to receive with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a S$SCNFD or another verb, such 
as a SSSERR. 


LL TRUNCATED (VBRLLT)--The SSRAW was issued with the 
LL £111 parameter and the length field is received 
truncated. The program does not receive the length 
of the data. 


DATA INCOMPLETE WHEN LENGTH=0 (VBDICOQ)--The SSRAW was 
issued with a LENGTH of zero and an incomplete 
logical record is being received by the program. No 
Gata is passed to the caller, 


DATA AVAILABLE WHEN LENGTH=0 (VBDATO)=<--The SSRAW was 
issued with a LENGTH of zero and a complete logical 
record is being received by the program. No data is 
passed to the caller. | 


DATA (VBRDAT)--The SSRAW was issued with the buffer 
£ill parameter and Gata is being received by the 
program. 


DATA COMPLETE (VBRDCP)--The S$SRAW was issued with the 
LL fill parameter and a complete logical record, or 
the completion of a logical record, is being received 
by the program. 


DATA INCOMPLETE (VBRDIC)=--The SSRAW was issued with 
the LL fill parameter and an incomplete logical 
record is being received by the program. The program 
must issue one or more additional SSRAWs to receive 
the remainder of the logical record. 
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$SRTOS - Request to Send Verb 


The $SRTOS verb indicates to the remote program that the 
local program is requesting to enter send state. 


FORMAT 

[label] S$SRTOS [vpb address] Pl: $B4 
ARGUMENTS 

vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


DESCRIPTION 


The SSRTOS verb indicates to the remote program that the 
local program.is requesting to enter send state. When the 
local program receives a send indicator in response, the 
conversation changes to send state, 


If a negative response is received, the conversation remains 
in receive state. If a positive response is received with a 
send indicator, the conversation changes to send state. 


RETURN CODES 


The application should check the return code after each 
execution of averb. Bits Q through 4 have special meaning 

and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. | 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 VROKAY OK 

0041 VRIRID Invalid resource ID 

0015 VRNRCS Not in receive/confirm state 

0019 VRCSCD In confirm state (received CONFIRM SEND or 
CONFIRM DEALLOCATE on the preceding SSRAW 
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SSSDAT - Send Data Verb 


The SSSDAT verb sends data to the remote program. 


FORMAT 

[label] S$SSDAT [vpb address] Pl: $B4 
[,data buffer] P2: VP_BUF 
[length] P3: VP_DLG 

ARGUMENTS 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register S$B4. 


data buffer 


This parameter contains a pointer to the Local LU's send 
buffer, This buffer contains the data being sent in the 
form of logical records. Each logical record consists of 
a two-byte field specifying the length of the data in that 
logical record, and the logical record itself. A buffer 
can contain any number of complete or partial records that 
fills the buffer. | 


Length 


This parameter specifies the length of the data in the 
local LU's send buffer. This value is independent of the 
length of data contained in any individual logical record 
and independent of the size of the send buffer. The 
maximum length is 32,876 bytes. 


DESCRIPTION 


The SSSDAT verb sends data to the remote program. This data 
can be data, status information, or confirmation. The data 
is formatted into logical records, which are buffered before 
being transmitted. A logical record, by definition, can 
range from 0002 bytes, including only the LL field, to 7FFF 
bytes, including a two-byte LL field and 32765 bytes of data. 


Executing the SSSDAT does not change the state of the 
conversation, 
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RETURN CODES 


The application should check the return code after each 


execution o£ a verb. 


Bits 0 through 4 have special meaning > 


and represent general AIF return codes that could occur for 


any verb. 


These bits should be examined individually, then 


"masked out" so that the application can examine bits 5 
through i5. 


In addition to the general return codes, the following values 
are possible: 


Value 


0000 


0004 


0010 
O04A 
0044 
0018 
0041 
00B0 
00C0 
00C1 
00C2 
00C3 
00D0 
O0D1 
00D2 
00D3 
00 EO 
QO0F1 
O0F2 
00F3 
0100 
0101 
0102 
0310 
0711 
0712 
0713 
0714 


Label 


VROKAY 
VRPEPR 
VRNSND 
VRIVLL 
VRLNER 
VRLRNF 


VRIRID 


VRAETN 
VRAEPI 
VRAEIP 


VRAESI 


VRAECM 
VRAESP 
VRAERP 
VRAENR 
VRAETR 
VRAEAN 
VRDAPG 
VRDASV 
VRDATM 
VRONBI 
VRSSHU 
VRURTO 
VRADLU 
VRLKFL 
VRADPU 
VRACSA 
VRSABT 


OUTPUT CONTROL 


The request to 
(VP_OCT.VBRRTS) indicates whether the remote program has 


issued a request to send notification, 


Description 


OK 

Program error--purging 

Not in send state 

Invalid logical record length 
Data length errror 

Logical record not finished yet 
Invalid resource ID 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 


Security not valid 


Conversation type mismatch 

Syne level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation=-~ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ‘ABORT’ AIF node 

SS abort AIF group 


WORD 


send received field in the output control word 


requesting the local 


program to enter receive state and placing itself in send 
This condition is true when VP_OCT.VBRRTS is set. 


state. 
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SSSERR - Send Error Verb 


The SSSERR verb indicates to the remote program that an error 
has occurred. 


FORMAT 
[label] SSSERR [vpb address] Pl: S$B4 
[, type] P2: VP TYP 
[, L0G INO. LOG] P3: VP_ICT.VBLGDA 
[,log data buffer] P4: VP_BUF 
[,log data length] P5: VP_DLG 


ARGUMENTS 
vpb address 
This parameter contains a pointer to the address of the 


VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


type 


This parameter specifies whether the error has occurred as 
a result of the application or as a result of the LU 
services transaction program, to identify to whom the 
error should be reported. 


The following arguments are valid for this parameter. 

® PROG = The error has occurred at the application 
level. The resulting error code is reported to the 
remote LU. 


@ SVC - The error has occurred at the LU services 
level. 


LOG {INO LOG 


This parameter indicates whether or not the system error 
log is transferred to the transaction. 


log data 
This parameter contains a pointer to the product specific 


error data which is kept in the system error logs of the 
local and remote LUs. 
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SSSERR 
DESCRIPTION 


The SSSERR verb indicates to the remote program that the 
local program has detected an error. The parameters issued 
with this verb identify the conversation on which the error 
has occurred and the type of error which has been detected. 
The local LU is in send state and the remote LU in receive 
State. If the conversation was in send state when this verb 
was issued, the local LU's send buffer is flushed and the 
state of the conversation does not change. 


If the conversation is in receive or confirm state when the 
SSSERR is executed, the conversation enters send state, 


RETURN CODES 


The application should check the return code after each 

execution of averb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 


"masked out" so that the application can examine bits 5 
through 15. 


The state of the conversation when you issue the SSSERR 


determines what return codes are possible. 
the general return codes, the following values are possible 


after any execution of the SSSERR. 


Value Label Description 

0000  VROKAY OK 

0017 VRNSRC Not in send, receive, or confirm state 
0041 VRIRID Invalid resource ID 

0103 VRPGER Resource failure, no retry 

0100 VROUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 VRADPU ACTPU/DACTPU received 

0713 VRACSA SA (SOPR) ‘ABORT! AIF node 

0714 VRSABT SS abort AIF group 
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In addition to 


SSSERR 


In addition, if the conversation is in send state when you 
execute the SSSERR, the following return codes are possible. 


If the conversation is in receive state when you execute the 


Value Label Description 

0OBO VRAETN TPN not recognized 

00C0 VRAEPI PIP not allowed 

0OC1l VRAEIP PIP not specified correctly 

00C2 VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

00D0 VRAESP Sync level not supported by program 
Q00D1 VRAERP Reconnect level not supported by program 
Q00D2 VRAENR TP not available--no retry 

00D3 VRAETR TP not available--retry 

OOEO VRAEAN ACC not valid 

OOF] VRDAPG Remote deallocation--ABEND program 
QOF2 VRDASV Remote deallocation--ABEND service 
O0F3 VRDATM Remote deallocation--ABEND timer 
0004 VRPEPR Program error--purging 


SSSERR, the following return codes are possible. 


Value Label Description 

O04C VRITYP Invalid type specified 

00BO0 VRAETN TPN not recognized 

00Cc0 VRAEPI PIP not allowed 

0O0CT1 VRAEIP PIP not specified correctly 

00C2Z VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

O0DG VRAESP Sync level not supported by program 
OOD1 VRAERP Reconnect level not supported by program 
00D2 VRAENR TP not available--no retry > 

00D3 VRAETR TP not available--retry 

Q00EO VRAEAN ACC not valid 

OOFO VRDANM Deallocate normal 

0007 VRSEPR Service program error, purging 


If the conversation is in confirm state when you execute the 


SSSERR, the following return codes are possible. 
Value Label Description 
004C VRITYP Invalid type specified 


OUTPUT CONTROL WORD 


The REQUEST TO SEND RECEIVED field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 
program to enter receive state and placing itself in send 
state. This condition is indicated when this bit is set. 
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SSWAIT - Wait Verb 


The SSWAIT verb waits for BeECEe? to occur on any of a list 
of conversations. 


FORMAT 

[label] SSWAIT [vpb list] Pl: $B4 
ARGUMENTS 

vpb list 


This parameter contains a pointer to the address of the 
list of VPBs identifying the conversations on which the 
SSWAIT is waiting. 


The VPB list consists of a single precision unsigned 
integer containing the number of pointers in the list, 
followed by a list of the addresses of all of the VPBs 
used by the transaction program. 


DESCRIPTION 


The SSWAIT verb causes the local program to suspend 
processing and wait for posting to occur on any conversation 
from a list of conversations. This verb is issued after the 
SSPONR (Post on Receipt) verb. Following the SSWAITm verb, 
you must execute the SSRAW verb to gain access to the data. 


If you have issued the SSPONR to allow the application to 
continue other program processing while waiting for data from 
the host. The SSWAIT brings you back to the conversation 
that has been posted. 


Executing the SSWAIT verb does not change the state of the 
conversation. 


RETURN CODES 


The application should check the return code after each 
execution of averb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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, | SSWAIT 
SWAIT 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 VROKAY OK 
0041 VRIRID Invalid resource ID (the verb parameter list 
contains an invalid resource identifier. S$B4 
: - contains the pointer to this ID. 
0016 VRNRCV Not in receive state 


RETURN PARAMETER 
conversation posted 


The address of the verb parameter block for the 
conversation that has been posted is returned in SB4. 


If you have multiple conversations, then this parameter 


contains the VPB address of the conversation that has been 
posted, 
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$SEBAC 


SSACEB —- ASCII-To—EBCDIC Conversion Routine 
SEBAC ~— EBCDIC-To-ASCII Conversion Routine 


Converts data between ASCII and EBCDIC. 
FORMAT 
label § $SACEB|$SEBAC 
ARGUMENT | 
There are no arguments associated with this macro. 
DESCRIPTION 


These session calls convert data between ASCII and EBCDIC. 
The maximum length of data that can be converted by a single 
call is 32,767 bytes. 


Since IBM handles data in EBCDIC and the AIF handles it in 
ASCII, you may sometimes wish to convert data from one to the 
other, either before sending or after receiving. 


The Application Interface Facility software provides the 
following macros to perform these conversions. 


SSACEB ASCII To EBCDIC Conversion 
SSEBAC EBCDIC To ASCII Conversion 


When either of these macros is activated, you must initialize 
registers $B2, SB4, $R2, $R4, and S$R6 to contain the values 
listed in Table 4-4. If you wish to convert in place, $B2 and 
SB4 must reference the same address. 
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SSACEB 
SSEBAC 


Table 4-4, Register Contents at Conversion 


| Pointer to buffer to be converted 
| Pointer to buffer to contain converted data 


Index for buffer to be converted 


| Function code (S$SACEB=1; S$SEBAC=2) 
Index for buffer to contain converted data 
| Length of data in bytes 


Do not convert the two-byte binary LL field of the 
logical record. 
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Section 5 

PROGRAMMING LU TYPE 
6.2 CONVERSATIONS IN 
COBOL 


This section describes the AIF conversation verbs that the 
COBOL programmer uses to converse over an LU Type 6.2 
conversation with host transaction programs. Topics include: 


® COBOL conversation verbs 
@ Conversation format 
© Programming Considerations 


~ Working Storage Section 
- Checking the return code 
- Conversation states 

- Session calls 


COBOL CONVERSATION VERBS 


The basic conversation verbs used by the Application 
Interface Facility (AIF) in a COBOL application program call 
correspond to Assembly language subroutines using the 
"CALL...USING..." verb. (These calls are listed in Table 5-1.) 


The parameters that these verbs use are defined in the 
WORKING-STORAGE SECTION of the COBOL program. In this manuai, 
these parameters are defined in the discussion of the 
WORKING-STORAGE SECTION and are listed without redefinition in 
the format description of each conversation verb. 
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At the completion of each execution of a verb, when control 
is returned to the application, a return code is placed in the 
RETURNS field. This return code indicates whether a verb has 
been completed error free. The application should check the 
return code after each execution of a verb to verify that the 
execution was completed error-free. 


A sample COBOL program is provided in Appendix C to 
demonstrate an AIF application in a COBOL program. 


CONVERSATION FORMAT. 


The conversation verbs used by the AIF in a COBOL program 
reference Assembly language subroutines which include 
system-provided macrocalls. The COBOL conversation verbs have a 
list of arguments that must be specified each time a verb is 
executed. These arguments, which you define in the | 
WORKING-STORAGE SECTION, correspond to parameters in the verb 
parameter block (VPB) that are used by the Assembly language 
subroutine. These arguments are positional and must be included 
each time the verb is issued. The AIF COBOL conversation verbs 
follow the conventions for COBOL (described in detail in the 
GCOS 6 COBOL 74 Language Reference (Order No. CZ34). 


When an AIF conversation is activated, it defines the 
resources to be made available to the session while that 
conversation is active. The AIF allocates a session for a 
conversation from a group of available LU sessions. The AIF can 
either log on to the host system at initiation or it can wait for 
an application to request to allocate a conversation before 
sending a logon request. The time of logon is a configuration 
option. 


An application requests to allocate a conversation with a 
remote transaction program by executing the CSALLO verb. The AIF 
looks for an available session to allocate for that 
conversation. If no session is immediately available, the 
application can specify whether control should be returned to the 
program. The conversation uses a session for only the time it 
takes to execute the verb. After the verb is executed, the 
conversation retains its resources until a deallocate verb is 
issued or a deallocate-confirmation is received from the host 
application. 


An application gains access to a host-initiated conversation 
executing a CSATCH verb. When an ATTACH command is received from 
the host, the AIF loads the transaction program by spawning a 
group with the attached application as the lead task, and sends a 
response to the host that the program is attached. If the DPS 6 
program is intended to be part of a host-initiated session, it 
must execute the CSATCH verb before any other verbs are issued. 
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PROGRAMMING CONSIDERATIONS 


The special considerations that the COBOL programmer must 
bear in mind fall into the following categories. 


WORKING-STORAGE SECTION 
Conversation state 
Host-initiated sessions 
Checking the return code 
Conversation format. 


WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION defines the area to be used as 
the SNA work area. The parameters specified in these fields are 
passed to the VPB when the conversation verbs are executed. 


The following parameters must be defined in the WORKING- 
STORAGE SECTION. These parameters are used to create the verb 
parameter block which is used by the Assembly language 
Subroutines you are calling. 


Figure 5-1 shows a sample WORKING~-STORAGE SECTION in which 
the SNA work area has been defined. The data~names that are used 
here are examples; you can name them according to your own naming 
conventions. ) 


These fields are defined as follows; 

SNA~WORK-AREA 
This input parameter is the name of a contiguous memory 
area that is at least 200 bytes long. This corresponds 


to the verb parameter block (VPB) argument of the 
Assembly language conversation verbs. 


Examples 
SNA-WORK-AREAIL | PIC X(200). 

NODE~NAME 
This parameter identifies the AIF node on the DPS 6 to 
which the application is directing this verb. This field 
can contain up to eight alphanumeric characters, 


Example: 


77 NODE- NAME PIC X(8) VALUE "AIF501". 
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DATA DIVISION. 
WORKING~STORAGE SECTION. 


O01 


77 
77 
77 
O01 
77 
Ol 


01 


SNA~WORK~AREAL 
NODE- NAME | 
REMOTE-LU-NAME 
CONV ERSATION=ID 


TRANS- PROGRAM-NAME 


TRANS~TPN 


NO-TRANS-TPN 


STD~NAME 

RETU RN-CONTROL 
SYNC-LEVEL 

TYPE 

LOG 

NO-LOG 
LOG~DATA= RECORD 
05 LL 

05 GDS-ID 

05 LOG-DATA 
LOCKS 
SEND-BUFFER 
SEND-BUFFER-SIZE 
RECEIVE-BUFFER 


RECEIVE-BUFFER-SIZE 
RECE IVED-DATA~LENGTH 


FILL 
RETURNS. 
02 RETURN-A. 


03 ABEND-DEALLOCATE 


03 STOP-RCVD 


03 SERV-REQ-CANC 
03 SERV-REQ-COMP 
03 COBOL~ERROR 


02 RETURN-B 


OUTFU T-CONTROL~WORD. 
02 REQ-TO-SEND~RCVD 


02 CONV-POSTED 


02 WHAT~ RECEIVED 


POSTED-CONV-ID 
RCVD-SENSE 


CONVERT~FROM-FIELD 
CONV ERT~FROM-LEFT-POSIT 


CONVER T- TO-FIELD 


-CONVERT-TO-LEFT- POSIT 
CONVERS ION-LENGTH 


PIC X VALUE 


PIC X(200). 


PIC X(8) VALUE "AIFS01". 
PIC X(8) VALUE "AO6CICS". — 


PIC X(4). 

PIC X(8) VALUE "TP42", 
PIC X VALUE "Y". 

PIC X VALUE "N". 

PIC XX VALUE "BB". 

PIC X VALUE "A". 
PIC X VALUE "C*, 

PIC X VALUE 
PIC X VALUE "“L". 
PIC X VALUE 
PIC 9(5). | 
COMP-1 VALUE 84. 
COMP=1. 

PIC X(80). 

PIC X VALUE "S". 
PIC X(80). 

PIC 9(5) VALUE 80. 
PIC X(80). 

PIC 9(5) VALUE 80. 
PIC 9(5) VALUE 0. 
PIC X VALUE "B". 


PIC X VALUE "N". 
"N", 
PIC X VALUE "N", 
PIC X VALUE "N". 
PIC X VALUE "N", 
PIC 9(4) VALUE 0. 


PIC X VALUE "N*. 
PIC X VALUE "N". 
PIC 99. : 
PIC X(4). 
PIC X(8). 
PIC X(20). 
COMP—1 VALUE l. 
PIC X(20). 
COMP—1 VALUE 6. 
COMP=-1 VALUE 10. 


Figure 5-1. Working—Storage Section for LU Type 6.2 
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REMOTE-LU-NAME 
The name by which the remote LU is known to this 
application. This field can contain up to eight 
alphanumeric characters. 
Example: 
77 REMOTE-LU- NAME PIC X(8) VALUE "AO6CICS". 
CONVERSATION-ID 


This parameter returns a unique four-character 
conversation-id which is supplied by the AIF. 


Examples: 
77 CONVERSATION=-ID PIC X(4). 

TRANS~ PROGRAM-NAME 
This parameter contains the name of the transaction 
program to be attached to the host. This host program 
becomes the session partner of the local program. 
Example : 


77 TRANS~PROGRAM-NAME PIC X(8) VALUE "TPp42". 


TRANSLATE-TPN 


NO- TRANSLATE-TPN 


This parameter specifies whether the transaction program 


name specified above requires translation from ASCII to 
EBCDIC. 
Examples: 
77 TRANS-TPN PIC X VALUE "Y". 
77 NO-TRANS-T PN PIC X VALUE "N",. 
STD-NAME 


The configured session type descriptor (STD) which lists 
the attributes of the conversation to be allocated. This 
field consists of two alphanumeric characters and is 
defined at AIF configuration time. 

Example: 


77 STD-NAME PIC XX VALUE "BB". 
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RETU RN-CONTROL 
This parameter indicates whether the local LU should 
return control to the local program, in the event that it 
is unable to allocate a conversation. 
The following arguments are valid for this parameter: 


e A (AVAIL) - allocates a session for the conversation 
before returning control to the program. 


e I (IMMEDIATE) -— allocates a session for the 
conversation if one is immediately available and then 
returns control to the session. 

Example: 

77 RETURN-CONTROL PIC X VALUE "A", 

SYNC-LEVEL 


This parameter indicates how the local and remote 
programs perform confirmation processing on the specified 
conversation. | 


The following arguments are valid for this parameter: 
e N (NONE) - do not perform confirmation processing on 
this conversation. Programs that specify NONE do not 


issue any verbs or recognize return parameters related 
to synchronization. 


@e cC (CONFIRM) - performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters. 

Example: 
77 SYNC-LEVEL PIC X VALUE "C", 


TYPE 


This parameter specifies whether the execution of the 
verb is to be completed as part of this verb or deferred 
until another verb is issued or a condition is met. 


The following arguments can be used for this parameter: 
e S (SYNCLVL) - executes the verb according to the 


synchronization level specified when the conversation 
was allocated: 
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LOG 


@e F (FLUSH) - flushes the local LU's send buffer and 
executes the verb. 


The following TYPE arguments are used for error handling 
and are application dependent. 


@ P (ABEND PROG) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
state and deallocates normally. 


e V (ABEND SVC) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
state and deallocates the conversation abnormally. 


e T (ABEND TIMER) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
state and deallocates the conversation abnormally. 


Example: 


77 TYPE PIC X VALUE “S". 


This parameter indicates whether or not the system error 
log is transferred to the transaction when deallocating 
the conversation. The value of LOG is L; the value of 
NO-LOG is N. If you specify that error logging should 
occur, the TYPE parameter must be specified as P, V, or 
Ts 


Examples 
77° L0G | PIC X VALUE "L®, 
77 NO-LOG PIC X VALUE "N*, 
LOG-DATA 


This parameter is a pointer to the product specific error 
data that is kept in the system error logs of the local 
and remote LUs. Error data is declared in the General 
Data Stream record format as described in the IBM SNA 
Format and Protocol Reference Manual for LU Type 6.: 

The record must start on a word boundary and all fields 
must be filled by the application. This parameter is 
only used with an ABEND deallocation type. 


Example: 


O01 LOG-DATA-RECORD. 


05 LL PIC 9(4) COMP-1 VALUE 84. 
05 GDS-ID PIC 9 COMP-1. 
05 LOG-DATA PIC X(80). 
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LOCKS 
This parameter specifies whether the local program waits 
for a reply when a request for confirmation points is 
executed following a CSPTOR (prepare to receive) verb. 
The following arguments are valid for this parameter. 


e S (SHORT) - Control is returned to the local program 
when an acknowledgement is received. 


e L (LONG) - control is returned to the local program 
when data is received from the remote program 
following an acknowledgment. 


SEND-BUFFER 
This parameter identifies the buffer which holds the data 
to be sent to the remote program. This buffer contains 
the data being sent in the form of logical records. Each 
logical record consists of a two-byte field specifying 
the length of the data in that logical record, and the 
logical record itself. A buffer can contain any number 
of complete or partial records that fills the buffer. 


Example: 
77 SEND—BUFFER PIC x (80). 
SEND-BUFFER-SIZE 
This parameter specifies the length of the SEND-BUFFER. 
Example: 
77 SEND-BUFFER-SIZE PIC 9(5) VALUE 8C. 
RECEIVE-BUFFER 


This parameter identifies the buffer which receives the 
data from the remote program. 


Example: 
77 RECEIVE-BUFFER © PIC X(80). 
RECEIVE-BUFFER-SIZE 


This parameter specifies the length of the 
RECEIVE-BUFFER. 


Example: 


77 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 
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RECEIVED-DATA-LENGTH 


This parameter specifies the actual length of the data 
which has been received from the remote program. 


Example: 
77 RECEIVED-DATA-LENGTH PIC 9(5). 
FILL 


This parameter specifies how the program receives data in 
terms of the logical record format of the data. MThe 
following arguments are valid for this parameter. 


e B (BUFFER) - data is buffered into units of the length 
specified in the LENGTH parameter, independent of its 
logical record format. The verb is executed when the 
buffer is full or the end of data is indicated. 


e L (LL) - the verb is executed when a complete or 
truncated logical record is received, or when part of 
a logical record is received that is at least as long 
as the length specified in the LENGTH parameter. 


Example : 
77 FILL PIC X VALUE "B*,. 
RETURNS 


This output parameter defines the field into which the 
return code from all AIF session calls is placed. The 
RETURNS £leld is divided into RETURN-A, which consists of 
five yes/no conditions, and RETURN-B, which contains a 
four character decimal status code to provide further 
detail about the conditions indicated in RETURN=A. 


RETURN~-A reports the following conditions: 


ABEND-DEALLOCATE--the conversation has Abended. 
STOP—-RCVD--SOPR stop command has been received. 
SERV-REQ-CANC--This request has been cancelled. 
SERV-REQ-COMP--This request has been completed. 
COBOL-ERROR--A COBOL interface error has occurred. 
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Example: 


O01 RETURNS. 
02 RETURN-A. 
03 ABEND-DEALLOCATE PIC X VALUE "N". 
03 STOP-RCVD PIC X VALUE "N". 
03 SERV-REQ-CANC PIC X VALUE "N", 
03 SERV~REQ~COMP PIC X VALUE "N". 
03 COBOL-ERROR PIC X VALUE "N"*. 
02 RETURN-B PIC 9(4) VALUE O. 
TIMEOUT 


This output parameter provides a formatted data area for 
the date and time that a session must be stopped when a 
STOP command is processed for the session or node. This 
field must be 14 decimal digits long, as in the following 


format: 
Example: 
O01 TIMEOUT 
02 DATEI1. 
03 YY PIC 99 VALUE QO. 
03 MM PIC 99 VALUE QO. 
03 DD PIC 99 VALUE 0. 
02 TIMEIL. 
03 HH PIC $39 VALUE QO. 
03 MN PIC 99 VALUE 0. 
03 SSSS PIC 9(4) VALUE 0. 
RCVD~SENS E 


This output parameter contains the hexadecimal 
representation of the sense data from the host if sense 
data is PEGSEnE: This field corresponds to VP_ESD in the 
VPB. 


Example: 
77 RCVD-SENSE PIC X(8). 

OUT PUT—CONTROL-WORD 
This output parameter provides information about the 
received data. The characteristics that can be specified 
are listed below. Each of these parameters must be 
stated. Possible values are "Y" or "N”. 


O01 OUTPUT-CONTROL-WORD. 


02 REQ-TO-SEND-RCVD PIC X VALUE "N", 
02 CONV-POSTED PIC X VALUE "N", 
02 WHAT-RECEIVED PIC 99, 
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CONVERT-FROM-FIELD 
This input parameter defines the buffer to be converted 
by the ASCII-to-EBCDIC conversion subroutines. The 
Maximum size of this buffer is 32,767 bytes. 
Example: 
77 CONVERT-FROM-FIELD PIC X(20). 
CONVERT-FROM-LEFT-POSIT 


This input parameter provides a etantnng index for the 
data in CONVERT-FROM-FIELD. 


Examples: 

O01 CONVERT~FROM-LEFT-POSIT COMP-1 VALUE l. 
CONVERT-TO-FIELD 

This input parameter defines the buffer into which the 

converted data will be placed by the ASCII-to-EBCDIC 

conversion subroutines. The maximum size of this buffer 

1s 32,767 bytes. 

Example: 

77 CONVERT-TO-FIELD PIC X(15). 
CONVERT-TO-LEFT=-POSIT 


This input parameter provides a starting index for the 
data in CONVERT=-TO-FIELD. 


Examples 
Ol CONV ERT~TO-LEFT-POSIT COMP-1 VALUE 6. 

CONVERS ION—-LENGTH 
This input parameter contains the length in bytes of the 
data to be converted. The maximum length of this data is 
Example: 


01 CONVERSION-LENGTH COMP~1 VALUE 10. 
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Conversation States 


The subset of verbs that a program can issue at a given time 
is determined by the state of the conversation at that time. For 
example, if a conversation is in receive state, it cannot issue a 
send verb without first issuing a verb to change the conversation 
to send state. The program must be aware of the state of the 
conversation. Executing many of the basic conversation verbs 
causes the conversation to change its state. 


Table 5-1 lists the conversation states and their 
definition. The description of each verb includes the state of 


the conversation at the end of execution. Table 5-2 shows what 
verbs a conversation can issue from each state. 


Table 5-1. Conversation States 


The state in which the program can allocate a | 
conversation. 


The state in which the program can send data 
| Or request confirmation. 


| The state in which the program can request 
confirmation or flush the LU's send buffer to 
| prepare to change states, 


Receive | The state in which the program can receive 
data or confirmation information. 


Confirm | The state in which the program can send a 
confirmation reply. 
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CSALLO 
CSATCH 
CSCONF 
CSCNFD 
CSDEAL 
CSDEAL 
CSDEAL 


Conversation States From Which Verbs Can Be Issued 


conversation State 


flush | 
sync level | 
abend 


CSFLSH 
CSPONR 
CSPTOR 
CS RAW 
CSRTOS 
CSSDAT 
CSSERR 
| CSWAIT 


The AIF supports host-initiated sessions; that is, it accepts 
unsolicited binds. In order to accept an unsolicited bind, an LU 
must be reserved with the HOST INIT SESS parameter specified as Y 
(YES) in the LU entry of the configuration file. 


The node name, STD name, and base level for the program must 
be provided in the LINKAGE SECTION as follows: 


LINKAGE SECTION. 


77 NODE PIC X(8). 
77 STD PIC XxX. 
77 BASE LVL PIC 99. 


PROCEDURE DIVISION USING NODE, STD, BASE LVL. 

If the program is compiled under the Advanced COBOL Compiler, 
you must include the Linker directive LINKN CSLEAD to move the 
node name, STD name, and base level to the Linkage Section. If 
the program is compiled under the Multi-user COBOL a aa 
these parameters are moved during compilation. 

When the application program begins execution, it must issue 
a CSATCH session call as the first session call, providing the 
STD name and the node name for the LU to be used. The CSATCH 
session call allows the AIF access to a host-initiated session. 


GR11-01 


The AIF associates the first unsolicited bind (host-initiated 
session request) to the first CSATCH session a from “ne task 
group that the AIF spawned. 


An unsolicited bind can be for a program designated in the 
AUTO ATTACH entry of the AIF configuration or it can be any other 
unsloicited bind sent from the host. 


When the AIF receives an unsolicited bind for a specific LU, 
the AIF checks the LU entry for an AUTO ATTACH program. If it 
finds one, the AIF spawns a group with the program_name as the 
lead task, and passes to the lead task the STD name, node_name, 
and base level used in the spawn group If the AIF does not find 
an AUTO ATTACH program in the LU entry, it accepts the session 
and looks for the program name in the first four bytes of the 
first record received, then spawns a group based on the ATTACH 
PROGRAM entry. If none is provided, default values are used to 
Spawn the group. 


The application can issue multiple CSATCHs to check for 
additional host—initiated sessions intended for this 
application. For an application to accept more than one session, | 
all LUs that can receive binds for that application must be 
reserved LUs with HOST INIT _SESS=Y. Each of these LUs must have 
at. same group id specified in the LU entry in the conf iguration 

ile. 


NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must create an attach 
program table entry with a dummy name (eg., ATTACH 
PROG=ABC), specifying the appropriate spawn group 
parameters, and include an ALIAS for ABC (eg., 
ALIAS=> >SYSLIB2>EC?EXECL) to execute the START 
UP.EC specified in the home directory. Refer to 


SNA Network Configuration for further information. 


Checking the Return Code 


On return from the AIF, a COBOL interface routine fills the 
Output parameter fields with the VPB results from the subroutine, 


After the session call is made, a return code is placed in 
the RETURNS field. The RETURNS field is divided into RETURN-A, 
which consists of five yes/no conditions, and RETURN-B, which 
contains a four—-character decimal status code, known as the 
return code, to provide further detail about the conditions 
indicated in RETURN-A., 
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The following values are possible for RETURN-A: 


If the value of COBOL-ERROR is Y, 
in the COBOL interface to the AIF. 


ABEND-DEALLOCATE--The conversation has ABENDed, the LU's 


receive buffer has been flushed, 


and the conversation has 


been deallocated, 


STOP=RCVD=-An SOPR STOP command received. 
argument is supplied with the STOP command, 


If the TIME 
check the TIME 


field for the time at which the session will be ended. 
This field indicates how much time you have to complete 
the session. 


SERV-REQ-CANC--This request has been cancelled. 


The 


application must issue it again if necessary. 


SERV-REQ-COMP--This request has been completed. 


COBOL~ERROR--Error in using COBOL interface to the AIF. 
See RETURN-B for return code, 


then an error has occurred 
Following are the general 


COBOL return codes that can be received in RETURN-B after 


executing any of the verbs to indicate a COBOL error. 
of XX is the 


Code: 


XXOl 
XX02 
XX03 
XX04 
XX05 
XX 06 
XX07 
XX08 


XX09 


XX10 
XX11 


The value 
number of the parameter in which there is an error. 


Meaning 


Unrecognized parameter 
Parameter must be 1 byte long 
Parameter must be 5 bytes long 
Default not acceptable 

Node name error _ 

Remote LU name error 

Not session-ID 

Unknown interrupt type 
Nondecimal digit 
Nonhexadecimal digit 

Error in conversion 


The values of both RETURN-A and RETURN-B should be checked 


after the execution of each verb. 


Since it is possible to have 


more than one Y value in RETURN-A, and to have a value greater 


than zero after a successfully completed call, 


the application 


should check all Fields in RETURN-A and RETURN-B for all possible 


combinations. 


If the return code contains a "no error" message, go to the 


next segment of the program. 


If the return code contains an 


error condition, you might decide to record it to an error-out 


file, 


go to another segment of the program, 


completely. 


Or shut down 
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Additional return codes are listed with the individual 


conversation verbs to which they pertain. 
their values are listed in Appendix F. 


Individual Verb Format 


The return codes and — 


Table 5-3 lists the basic conversation verbs that are 


Supported by the AIF. 


following pages. 


Table 5=—3. AIF LU Ty pe 6.2 Verbs 


CSALLO 


| CSATCH 


CS CONF 
CSCNFD 
CSDEAL 
CSFLSH 
CSPONR 


| CSPTOR 
| CS RAW 


CSRTOS 


| CSSDAT 


CSSERR 
CSWAIT 
CSACEB 


| CSEBAC 


| Attached verb 
{ Confirm verb 
| Confirmed verb 
| Deallocate verb 


Prepare to Receive verb 
| Receive and Wait verb 
| Request to Send verb 
| Send Data verb 


Description 


Allocate verb 


Flush verb 
Post on Receipt verb 


Send error verb 
Wait verb | 
ASCII~-EBCDIC Conversion | 
EBCDIC-ASCII Conversion | 


These verbs are described in detail on the 
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CSALLO 


CSALLO - Allocate Verb 


The CSALLO verb is used to allocate a conversation between a 
local program and a remote program. 


FORMAT 


CALL "CSALLO" USING SNA-WORK-AREA 
NODE-NAME 
REMOTE- LU-NAME 
CONVERSATION-ID 
TRAN S— PROG RAM- NAME 
TRANS-TPN |NO-TRANS-T PN 
STD-NAME 
RETU RN-CONTROL 
SYNC=- LEVEL 
RETURNS 
TIMEOUT 
RCVD-SENSE 
OUTPU T-CONTROL-WORD 


DESCRIPTION 


The CSALLO verb first allocates a session between a local LU 
and a remote LU, then allocates a conversation over that 
session, between a local program and a remote program, and 
puts the conversation in send state. Once you have allocated 
a conversation over a sesSion, that session becomes 


unavailable to other conversations until this conversation is _ 


de allocated. 


The CSALLO verb is used to allocate conversations for either 
transaction programs or service component programs. The 
parameters issued with this verb identify the partners in the 
conversation and initialize the returned fields. 


The CSALLO verb must be issued before any other AIF verbs 
that refer to the specified conversation. 


When issuing the CSALLO, you have the option of whether you 
want to wait for an available session or to return control to 
the local program for processing if one is not immediately 
available. These options are addressed by the RETURN-CONTROL 
parameter, | 
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CS ALLO 
1. 


The 


The A (AVAIL) option allocates a session for the 
conversation before returning control to the program If 
the local LU fails to obtain a session for this 
conversation, an allocation error is reported in the 
CSALLO return code, 


The I (IMMED) option allocates a session for the 
conversation if one is immediately available and then 
returns control to the session. The following conditions 
are possible: 


e® If a session is immediately available, the 
conversation is allocated and control is returned with 
a return code of OK. The IMMED option requests that a 
local LU is the contention winner. 


e If a session in not immediately available, the 
conversation is not allocated and control is returned 
with a return code of unsuccessful. 

e If a session is immediately available and an error 
occurs in allocating a conversation, the error is 
reported in the return code. 


NOTE 


Tf the LU is configured with the contention winner 
as nonnegotiable, an LU must be both reserved and 
preestablished. 


CSALLO verb must be issued before any other verbs that 


refer to the specified conversation. At the completion of 
the CSALLO verb, the conversation enters send state, 


RETURN CODES 


The 


application should check the return code after each verb 


is issued to determine if the call has been completed error 
free. After the execution of the CSALLO verb, the following 
combinations are possible: 


If SERV-~REQ~COMP=Y and RETURN-B=0, the conversation has 
been allocated. 


If the value of another field in RETURNW-A is Y, the CS ALLO 


was not allocated successfully and RETURN-B contains the 


return code to indicate the reason for the error, 
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CSALLO 


The value that you specified for the RETURN-CONTROL 
paraneter determines which return codes are possible. The 
following values are possible in RETURN-B for any value of 
RETU RN-CONTROL. 


Value 


0000 
0064 
0066 
0073 
0075 
0150 
0151 
0152 
0153 
0154 


Description 


OK 

Invalid node name 

Invalid transaction program name (null value) 
Synchronization level not supported by LU 
Invalid return control 

Node not yet active 

No active LU for session 

No LU available for session 

Invalid STD name 

Invalid LU type in STD 


In addition, if you specified a return control of IMMED, the 


following value 
Value 


0001 


is possible: 


Description 


Unsuccessftul 
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CSATCH - Attached Verb © 


The CSATCH verb is used by an attached program to gain access 
to the coversation. 


FORMAT 


CALL "CSATCH" USING SNA-WORK-AREA 
NODE-NAME 
REMOTE-LU-NAME 
CONVERSATION-ID 
STD-NAME 
RETU RN-CONTROL 
SYNC- LEVEL 
RETURNS 
TIMEOUT 
RCVD-SENSE 
OU TPU T-CONTROL-WORD 


DESCRIPTION 


The CSATCH verb causes an application to connect to a 
host-initiated conversation. When the host issues an ATTACH 
command to allocate a conversation, the AIF loads the local 
transaction by spawning a group with the program as the lead 
task. When the program is loaded, the COBOL program must 
issue the CSATCH verb to direct the AIF to associate the 
session to this COBOL program. 


The CSATCH verb can be issued with the following values for 
SYNC-LEVEL : 


@ NONE ~- do not perform confirmation processing on this 
conversation. Programs that specify NONE do not issue any 
verbs or recognize return parameters related to 
synchronization. 


@e CONFIRM - performs confirmation processing only on this 
conversation. Programs that specify CONFIRM issue verbs 
and recognize returned confirmation parameters, but do not 
recognize return parameters related to synchronization. 


Tf the application is intended to connect to a host-initiated 


session, the CSATCH must be the first verb executed. After the 
CSATCH verb 1s executed, the conversation enters receive state. 
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RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSATCH verb, the following 
combinations are possible. 


@® If SERV-REQ-COMP=Y and RETURN-B=0, the attached program 
now has access to the session. 


® If the value of another field in RETURN-A is Y, the CSATCH 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 

0000 OK 

0064 Invalid node name 

0073 Synchronization level not supported by LU 
0153 Invalid STD name 

0155 No LU attached by remote TP 
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CSCONF - Confirm Verb 


The CSCONF verb sends a confirmation request to the remote 
program. | 


FORMAT 
CALL "CSCONF" USING SNA~WORK~AREA 
DESCRIPTION 


The CSCONF verb requests that the remote program send an 
acknowledgement, and waits for a response. The CSCONF verb 
is used for confirmation processing and in verifying that the 
conversation has been allocated or data has been received. 
CSCONF is not used if the conversation has been allocated 
with a synchronization level of NONE. This verb causes the 
LU to fiush its send buffers. 


When the CSCONF verb is issued in defer state following a 
CSPTOR, the conversation enters receive state. When the 
CSCONF verb is issued in defer state following CSDEAL, the 
conversation enters reset state. When the CSCONF verb is 
issued in send state, the state does not change. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSCONF verb, the following 
combinations are possible. 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the request for 
confirmation has been sent. 


e If the value of another field in RETURN-A is Y, the CSCONF 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 

0000 OK 

0004 Program error-~purging 

0007 Service program error, purging 
0017 Not in send/defer state 

0024 Logical record not finished yet 


0065 Invalid resource ID 
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0071 


0241 
0242 
0043 
0256 
0257 
0258 
0259 


0784 
1809 
1810 
1811 
1812 


CSCONF 


Verb not supported (conversation was 
allocated with a sync level of none) 
Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
Resource failure, no retry--~session abort due 
to unrecoverable protocol errror 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

SS ABORT AIF group 


OUTPUT CONTROL WORD 


The REQ-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request to 
send notification, requesting the local program to enter 
receive state. 


The remote program enters send state. 
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CSCNFD - Confirmed Verb 


The CSCNFD verb sends a confirmation reply to the remote 
program. 


FORMAT 
CALL "CSCNFD" USING SNA-WORK—AREA 
DESCRIPTION 


The CSCNFD verb sends a confirmation to a remote program, 
always in response to a request for confirmation. The CSCNFD 
verb is used in confirmation processing and error detection 
and follows a receive~and-wait verb (CSRAW). CSCNFD is not 
used if the conversation has been allocated with a 
synchronization level of NONE. 


The WHAT-RECEIVED parameter of the CSRAW verb determines what 
state the conversation enters after the CSCNFD is executed. 
If the CSRAW returned a CONFIRM indicator, the conversation 
enters receive state. If the CSRAW indicated CONFIRM-SEND, 
the conversation enters send state. If the CSRAW indicated 
CONFIRM=DEALLOCATE, the conversation enters reset state. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSCNFD verb, the following 
combinations are possible. 


@ If SERV-REQ-COMP=¥ and RETURN-B=0, the confirmation 
response has been sent. 


e If the value of another field in RETURN-A is Y, the CSCNFD 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 

0000 OK 

0007 Service program error, purging 

0018 Not in confirm state 

0065 Invalid resource ID 

0071 Verb not supported (conversation was 


allocated with a sync level of none) 
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0256 
0257 
0258 
0784 
1809 
1810 
1811 
1812 


CS CNFD 


Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

$S ABORT AIF group 
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CSDEAL ~- Deallocate Verb 


the 


The CSDEAL verb deallocates the specified conversation from 
transaction program. | . 


FORMAT 

CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE 
LOG |NO-LOG 
LOG-DATA 


DESCRIPTION 


The CSDEAL verb deaillocates the specified conversation from 
the transaction program. The parameters issued with this 
verb identify the conversation to be deallocated and the type 
of deallocation to be performed. 


When issuing the CSDEAL, the TYPE parameter allows you to 
specify whether the deallocation is to be completed as part 
of this verb or deferred until another verb is issued or a 
certain condition is met. The following options are 
available with the TYPE parameter. 


e SYNC-LEVEL (S) - performs confirmation processing before 
deallocating the conversation: 


- I£ SYNC-LEVEL were none, CSDEAL flushes the local LU's 
send buffer and deallocates normally. 


- If SYNC-LEVEL were confirm, CSDEAL sends a confirmation 
requests to the remote LU and, if the return code is 
OK, deallocates the conversation normally. If the 
return code is UNSUCCESSFUL, CSDEAL returns the 
conversation to its previous state. 


e FLUSH (F) - flushes the local LU's send buffer and 
deallocates the conversation normally. 


@ ABEND PROG (P) - flushes the local LU's send buffer when 
the conversation is in send or defer state and deallocates 
normally. 


e ABEND SVC (V) - flushes the local LU's send buffer when 


the conversation is in send or defer state and deallocates 
the conversation abnormally. 


5-26 GR11-01 


CSDEAL 


e ABEND TIM (T) - flushes the local LU's send buffer when 
the conversation is in send or defer state and deallocates 
the conversation abnormally. 


If ABEND deallocation occurs when the conversation is in send 
state, logical record truncation can occur. When the 
conversation is in receive state, data purging can occur, 


After the execution of the CSDEAL verb, the conversation 
enters reset state, 


NOTE 


The AIF does not support a state that corresponds. 
to the AIF deallocate state. If you receive a 
deallocate-confirm message after a CSCNFD verb, 
the conversation has been deallocated and its 
resources returned to the system. The 
conversation is then in reset state. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSDEAL verb, the following 
combinations are possible: | 


@ If SERV-REQ-COMP=Y¥ and RETURN-B=0, the confirmation 
response has been sent. | 


If the value of another field in RETURN-A is Y, the CSCNFD 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The SYNC-LEVEL at which the conversation was allocated 
Getermines the return codes that are possible for this call. 


If you executed the CSDEAL with a type of SNCLVL and the 
conversation was allocated with synchronization level of NONE 


or a type of FLUSH, the following return codes are possible 
in RETURN-B. 


Value Description 

0000 OK 

0016 Not in send state 

0024 Logical record not finished yet 
0076 Invalid type specified 
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If you executed the CSDEAL with a type of ABEND, the 
following return codes are possible: 


Value Description 

0000 OK (deallocation is complete) 
0026 Improper state 

0076 Invalid type specified — 


If you executed the CSDEAL with a type of SYNC-LEVEL and the 
conversation was allocated with synchronization level of 
CONFIRM, the following return codes are possible: 


Value Description 

0000 OK 

0007 Service program error, purging 

0017 Not in send/defer state 

0024 Logical record not finished yet 

0071 Verb not supported (conversation was 
allocated with a sync level of none) 

0076 Invalid type specified 

0176 - TPN not recognized 

0192 | PIP not allowed 

0193 | PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch | 

0208 Sync level not supported by program 

0209 Reconnect level not supported by program 

0210 : TP not available--no retry 

0211 TP not available--retry 

0224 ACC not valid 

0241 Remote deallocation--ABEND program 

0242 Remote deallocation--ABEND service 

0243 Remote deallocation-~-ABEND timer 
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CSFLSH - Flush Verb 
The CSFLSH verb flushes the local LU‘'s send buffer. 
FORMAT 
CALL "CSFLSH" USING SNA-WORK-AREA 
DESCRI PTION 


The CSFLSH verb flushes the local LU's send buffer. Any 
information that was in the buffer is sent to the remote 
LU. The CSFLSH verb is useful for transferring incomplete 
buffers of data to the remote LU, thus avoiding a delay in 
processing. 


If you execute a CSFLSH when the conversation is in defer 
state following a CSPTOR, the conversation enters receive 
State. If you execute a CSFLSH when the conversation is in 
send state, the state of the conversation does not change. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free, After the execution of the CSFLSH veo the following 
combinations are possible: 


i 


e If SERV-REQ-COMP=Y¥ and RETURN-B=0, the LU's receive buffer 
has been flushed. 


e if the value of another field in RETURN-A is Y, the CSFLSH 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Code Meaning 

0000 OK 

0017 Not in send/defer state 

0065 Invalid resource ID 

0256 Session unbound by host unexpectedly 

0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due 


to unrecoverable protocol error 
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 CSFLSH 


0784 ACTLU/DACTLU received 
1809 Link failure 

1810 ACTPU/DACTPU received 
i8sgli SA (SOPR) ABORT AIF node 
1812. $$ ABORT AIF group 
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CSPONR —- Post on Receipt Verb 


The CSPONR verb causes the LU to post the conversation when 
there is information to receive. 


FORMAT 


CALL "CSPONR" USING SNA-WORK~AREA 
FILL 
RECEIVE-BUFFER-SIZE 


DESCRIPTION 


The CSPONR verb causes the LU to signal the conversation when 
there is information to receive. The information can be 
transmitted data, status information, or a request for 
confirmation. The CSPONR can be used with the CSWAIT verb or 
the CSRAW verb to allow the application to continue with 
other processing while waiting for data from the host. 


The FILL parameter allows you to specify whether posting 
should occur when a logical record is received or when the 
receive buffer is full. 


Executing the CSPONR verb does not cause the state of the 
conversation to change. In order to execute the CSPONR, you 
must be in receive state. If you are not in receive state, 
you must first issue the CSPTOR verb. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSPONR verb, the following 
combinations are possible: 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the CSPONR has been 
successfully issued. 


e If the value of another field in RETURN-A is Y, the CSPONR 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. | 


If the the return code indicates OKAY and the output control 
word indicates that the conversation has been posted, then 
posting has occurred and the LU has information that the 
program can receive. The program has the option of issuing a 
CSRAW at this point or it can ignore this posting by issuing 
a CSWAIT and receive this data at a later time. 
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The following values are possible for RETURN-B: 


Value Description 

0000 OK 

0022 Not in receive state 
0065 Invalid resource ID 


OUTPUT CONTROL WORD 


The CONVERSATION-POSTED field in the OUTPUT-CONTROL-WORD 
indicates whether the conversation has been posted. If this 
parameter has a value of Y, the conversation is posted and 
CSRAW can be used to receive data or information. If this 
parameter has a value of N, posting has not occurred for this 
conversation and CSWAIT can be used to wait for posting to 
OccUr. | 


5-32 ~GR1i1-01 


CSPTOR 


CSPTOR - Prepare to Receive Verb 


The CSPTOR verb changes the state of the conversation to 
receive state. 


FORMAT 
CALL "CSPTOR" USING SNA-WORK-AREA 
| TYPE 
LOCKS 


DESCRIPTION 


The CSPOTR verb changes the state of the conversation from 
send to receive. The parameters issued with this verb 
identify the conversation whose state is being changed, the 
type of prepare-to-receive to be performed, and when control 
is to be returned to the local program after the receive. 


The TYPE parameter allows you to specify whether to perform 
confirmation processing (SYNCLVL) before preparing to receive 
or to flush the send buffer (FLUSH). 


The locks parameter allows you to specify whether the local 
program waits for a reply when a request for confirmation is 
executed following a CSPTOR. This parameter is relevent only 
if the conversation was allocated with a synchronization 
level of CONFIRM, and the CSPTOR is executed with a type of 
SYNCLVL. 


After the CSPTOR is executed, the conversation enters receive 
state. If the CSPTOR is unsuccessful, the conversation 
remains in send state, 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSPTOR verb, the following 
combinations are possible: 


@e If SERV-REQ-COMP=Y and RETURN-B=0, the CSPTOR has been 
successfully issued. 


® If the value of another field in RETURN-A is Y, the CSPTOR 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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CSPTOR 


The following values are possible for RETURN-B: 


Value Description 
0000 OK 
0076 Invalid type specified 


In addition, if you executed the CSPTOR with a type of SNCLVL 
and the conversation was allocated with synchronization level 
of CONFIRM, the following return codes are possible. 


Value Description 

0004 Program error--purging 

0007 Service program error, purging 

0016 Not in send state 

0024 Logical record not finished yet 

0065 Invalid resource ID 

0071 Verb not supported (conversation was 
allocated with a sync level of none) 

~—~0176 TPN not recognized 

0192 PIP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch 

0208 Syne level not supported by program 

0209 Reconnect level not supported by program 

0210 TP not available--no retry 

0211 TP not available--retry 

0224 ACC not valid 

0241 Remote deallocation-~-ABEND program 

0242 Remote deallocation--ABEND service 

0243 Remote deallocation--ABEND timer 

0256 Session unbound by host unexpectedly 

0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due 
to unrecoverable protocol error 

0784 ACTLU/DACTLU received 

1809 Link failure 

1810 ACTPU/DACTPU received 

1811 SA (SOPR) ABORT AIF node 

1812 $S ABORT AIF group 
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CSRAW - Receive and Wait Verb 


The CSRAW verb causes the LU to wait for data on the receive 
queue and receive it. 


FORMAT 

CALL "CSRAW" USING SNA-WORK-AREA 
RECEIVE-BUFFER 
RECEIVE~BUFFER-LENGTH 
FILL 


RECEIVED-DATA~ LENGTH 
DESCRIPTION 


The CSRAW verb causes the LU to wait for data to arrive at 
the specified conversation and receives it. The information 
can be data, status information, or a request for 
confirmation. If there is data in the receive queue when 
this verb is executed, the waiting time is eliminated. After 
CSRAW is executed, control is returned to the local program 
and the type of information received is indicated. 


If the conversation is in send state when this verb is 
issued, the local LU flushes its send buffer anc the 
conversation changes to receive state. A send indicator is 
sent to the remote LU, to notify the remote program that it 
can send data to the local program, 


The receive buffer is made up of logical records. The first 
two bytes of the buffer indicate the length of the buffer. 
If you want to convert the data you receive, you must first 
break it down into the record length and the logical record, 
Do not convert the record length field. 


The FILL parameter allows you to specify whether the program 
receives data in Logical record format or buffers it. 


If the conversation is in send state when this verb is 
issued, the local LU flushes its send buffer and the 
conversation changes to receive state. A send indicator is 
sent to the remote LU, to notify the remote program that it 
can send data to the local program. 


The value of the WHAT~RECEIVED parameter determines the state 
of the conversation after the SSRAW is executed. If 
WHAT-RECEIVED indicates WAR-DATA, DATA-COMPLETE, DATA- 
INCOMPLETE, Or LL-TRUNCATED, the conversation enters (or 
remains in) receive state. If WHAT-RECEIVED indicates WAR- 
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CSRAW 


SEND, 


the conversation enters send state. [If WHAT-RECEIVED 


indicates CONFIRM, CONFIRM-SEND, or CONFIRM~DEALLOCATE, the 
conversation enters confirm state, 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 

f£ ree. 
combinations are possible: 


After the execution of the CSRAW verb, the following 


If SERV-REQ-COMP=Y and RETURN-B=0, the conversation has 
received the data successfully. 


If the value of another field in RETURN-A is Y, the CSRAW 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Value 


0000 
0002 
0003 
0004 
0005 
0006 
0007 
0020 
0024 
0065 
0176 
0192 
0193 
0194 
0195 
0208 
0209 
0210 
0211 
0224 
0240 
0241 
0242 
0243 
0256 
0257 
0258 
0259 


Description 


OK 

Program error, not truncating 
Program error, truncating 

Program error--purging 

Service error, not truncating 
Service error, truncating 

Service error--purging 

Not in send/receive state 

Logical record not finished yet 
Invalid resource ID 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 
Security not valid 

Conversation type mismatch 

Sync level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not avallable--retry 

ACC not valid 

Deallocate normal 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 


. Session shutdown by host orderly 


You are timed out by SOPR command 
Resource failure, no retry--sessicn abort due 
to unrecoverrable protocol error 
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0784 ACTLU/DACTLU received 
1809 Link failure 

1810 ACTPU/DACTPU received 
1811 SA (SOPR) ABORT AIF node 
1812 SS ABORT AIF group 


RECEIVE-DATA~ LENGTH 


This field contains the actual length of the received 
data, when WHAT-RECEIVED is a DATA indicator. ‘The 
RECEIVED-DATA-LENGTH includes the two-byte binary field 
that specifies the logical record length and the length of 
the record itself. The length can range from 2 to 32,767 
characters. 


OUTPU T= CONTROL~WORD 


The REQO-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request 
to send notification, requesting the local program to 
enter receive state and placing itself in send state, 


WHAT~ RECEIVED 


The WHAT-RECEIVED field defines what the transaction 

- program has received, and should be examined when the 
return code is SERV-REQ-COMP. The following values are 
possible for WHAT~RECEIVED. 


2 SEND INDICATOR RECEIVED--the remote program has entered 
receive state causing the local program to enter send 
state. The local program can now issue @ CSSDAT. 


4 CONFIRM REQUEST RECEIVED--the remote program has sent a 
confirmation request to the local program. The local 
program can respond by issuing a CSCNFD or another 
verb, such as a CSSERR. 


9 CONFIRM DEALLOCATE--the remote program has issued a 
deallocate with type SNCLVL and a synchronization level 
of CONFIRM. The local program can respond by issuing a 
CSCNFD or another verb, such as a CSSERR. 


6 CONFIRM SEND RECEIVED--the remote program has issued a 
prepare to receive with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a CSCNFD or another verb, such 
as a CSSERR. 


8 LL-TRUNCATED--The CSRAW was issued with the LL FILL 


parameter and the length field is received truncated. 
The program does not receive the length of the data. 
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10 


20 


21 


22 


DATA INCOMPLETE WHEN LENGTH=0--The SSRAW was issued 
with a LENGTH of zero and an incomplete logical record 
is being received by the program. No data is passed to 
the caller. 


DATA AVAILABLE WHEN LENGTH=0--The SSRAW was issued with 
a LENGTH of zero and a complete logical record is being 
received by the program. No data is passed to the 
caller. 


DATA~-The CSRAW was issued with the buffer FILL 
parameter and data is being received by the program. 


DATA~COMPLETE--The CSRAW was issued with the LL FILL 
parameter and a complete logical record, or the 
completion of a logical record, is being received by 
the program. 


DATA~INCOMPLETE=--The CSRAW was issued with the LL FILL 
parameter and an incomplete logical record is being 
received by the program. The program must: issue one or 
more additional CSRAWs to receive the remainder of the 
logical record. | 
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CSRTOS -— Request to Send Verb 


The CSRTOS verb indicates to the remote program that the 
local LU has data to send. 


FORMAT 
CALL "CSRTOS" USING SNA-WORK-AREA 
DESCRIPTION 


The CSRTOS verb indicates to the remote program that the 
local program is requesting to enter send state. The local 
LU has data to send. This data can include program data, 
status information, or confirmation data. When the local 
program receives a send indicator in response, the 
conversation changes to send state. 


If a negative response is received, the converrsation remains 
in receive state. If a positive response is received, the 
confirmation enters send state. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSRTOS verb, the following 
combinations are possible: 


If SERV-REQ-COMP=Y¥ and RETURN-B=0, the request to send has 


received the data successfully. 


@ If the value of another field in RETURN-A is Y, the CSRTOS 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Value Description 

0000 OK 

0021 Not in receive/confirm state 

0025 In confirm state (received CONFIRM SEND or 
CONFIRM DEALLOCATE on the preceeding CSRAW 

0065 Invalid resource ID 
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CSSDAT - Send Data Verb 


The CSSDAT verb sends data to the remote program. 


FORMAT 

CALL "CSSDAT" USING SNA-WORK-AREA 
SEND-BUF FER 
S END-BUF FER- LENGTH 


DESCRIPTION 


The CSSDAT verb sends data to the remote program. This data 
can be data, status information, or confirmation. The data 
is formatted into logical records, which are buffered before 
being transmitted. A logical record includes the record 
being sent and the two-byte binary field specifying the 
length of the data being sent. A logical record, by 
definition, can range from 2 bytes, including only the LL 
field, to 7FFF bytes, including a two-byte LL field and 32765 
bytes of data. 


NOTE 


If you are going to translate data, you must 
translate it before you move it to the logical 
record, in order not to translate the binary 
record length field. 


Executing the CSSDAT does not change the state of the 
conversation. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSSDAT verb, the following 
combinations are possible: 


@e If SERV-REQ-COMP=Y and RETURN-B=0, the send has been 
| executed successfully. 


® If the value of another field in RETURNW-A is Y, the CSSDAT 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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The following values are possible for RETURN-B: 


Value Description 

0000 OK 

0004 Program error--purging 

0005 Service program error, purging 

0016 Not in send state 

0065 Invalid resource ID 

0068 Data length error 

0074 Invalid logical record length 

0176 TPN not recognized 

0192 PIP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch 

0208 . Syne level not supported by program 

0209 Reconnect level not supported by program 

0210 TP not available--no retry 

0211 TP not available--retry 

0224 ACC not valid 

024) Remote deallocation--ABEND program 

0242 Remote deallocation--ABEND service 

0243 Remote deallocation--ABEND timer 

0256 Session unbound by host unexpectedly 

0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due 
to unrecoverable protocol error 

0784 ACTLU/DACTLU received 

1809 Link failure 

1810 ACTPU/DACTPU received 

1811 SA (SOPR) ABORT AIF node 

1812 SS ABORT AIF group 


OUTPUT CONTROL WORD 


The REQ-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request to 
send notification, requesting the local program to enter 
receive state and placing itself in send state. 
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CSSERR - Send Error Verb 


has 


The CSSERR verb indicates to the remote program that an error 
occurred. 


FORMAT 

CALL "CSSERR" USING SNA-WORK-AREA 
TYPE 
LOG NO-LOG 
LOG-DATA 


DESCRIPTION 


The CSSERR verb indicates to the remote program that the 
local program has detected an error. The parameters issued 
with this verb identify the conversation on which the error 
has occurred and the type of error which has been detected. 
The local LU is in send state and the remote LU in receive 
state. If the conversation was in send state when this verb 
was issued, the local LU's send buffer is flushed and the 
state does not change. 


The TYPE parameter indicates whether you are sending a 
program error (ABSEND _PROG) Or a service error (SVC_ERROR). 
These errors are application-dependent. 


If the conversation is in receive or confirm state when the 
CSSERR is executed, the conversation enters send state. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSSERR verb, the following 
combinations are possible: 


e If SERV-REQ-COMP=Y and RETURN-B=0, the send has been 
executed successfully. 


e If the value of another field in RETURN-A is Y, the CSSDAT 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The state of the conversation when you issue the CSSERR 
determines what return codes are possible. The following 
values are possible for RETURN-B, following any execution of 
the CSSERR verb: 
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Value Description 

0000 OK 

0023 Not in send, receive, or confirm state 

0065 Invalid resource ID 

0256 Session unbound by host unexpectedly 

0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due 
to unrecoverable protocol error 

0784 ACTLU/DACTLU received 

1809 Link failure 

1810 ACTPU/DACTPU received 

1811 SA (SOPR) ABORT AIF node 

1812 $S ABORT AIF group 


In addition, if the conversation is in send state when you 
execute the CSSERR, the following return codes are possible. 


Value Description 

0004 Program error--purging 

0007 Service program error, purging 

0176 TPN not recognized 

0192 PIP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch 

0208 Sync level not supported by program 
0209 Reconnect level not supported by program 
0210 TP not available--no retry 

0211 TP not available--retry 

0224 ACC not valid 

0241 Remote deallocation=--ABEND program 
0242 Remote deallocation-~ABEND service | 
02 43 Remote deallocation--ABEND timer 


If the conversation is in confirm state when you execute the 


CSSERR, the following return codes are possible. 
Code Meaning 
0076 Invalid type specified 
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If the conversation is in receive state when you execute the 
CSSERR, the following return codes are possible. 


Code Meaning 

0076 Invalid type specified 

0176 TPN not recognized 

0192 PTP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0095 Conversation type mismatch 

0208 Sync level not supported by program 
0209 Reconnect level not supported by program 
0210 TP not available--no retry 

0211 TP not available~-retry 

0224 ACC not valid 

0240 Deallocate normal 


OUTPUT CONTROL WORD 


The REQ-TO-SEND—RCVD field in the OUTPUT~CONTROL~WORD 


indicates whether the remote program has issued a request 


to send notification, requesting the local program to 
enter receive state and placing itself in send state. 
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CSWAIT | 


CSWAIT - Wait Verb 


The CSWAIT verb waits for posting to occur on any of a list 
of conversations. 


FORMAT 


CALL "CSWAIT" USING SNA-WORK~AREAL 
SNA-WORK-AREA2 


SNA-WORK-AREAN 
POSTED~CONV-ID 


DESCRIPTION 


The CSWAIT verb causes the local program to suspend 
processing and wait for posting to occur on any conversation 
from a list of conversations. This verb is issued after the 
CSPONR (Post on Receipt) verb to allow synchronous processing 
of multiple conversations. Following the CSWAIT verb, you 
must execute the CSRAW verb to access the data. If you have 
issued the CSPONR to allow the application to continue other 
program processing while waiting for data from the host, the 
CSWAIT brings you back to the conversation that has been 
posted. 


Executing the CSWAIT verb does not change the state of the 
conversation. 


RETURN CODES 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free, After the execution of the CSWAIT verb, the following 
combinations are possible: 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the CSWAIT has been 
executed successfully. 


@ If the value of another fieid in RETURN-A is Y, the CSWAIT 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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The following values are possible for RETURN-B 


Value Description 

0000 OK 

0022 Not in receive state 

0065 Invalid resource ID (the verb parameter list 


contains an invalid resource identifier. $B4 
contains the pointer to this ID) 


OUTPUT—CONTROL-WORD 


The CONVERSATION-POSTED parameter of the OUTPUT-CONTROL- 
WORD indicates whether or not a conversation has been 
posted. The address of the conversation that has been 
posted appears in POSTED-CONV-ID. If you have multiple 
conversations, then this parameter contains the VPB 
address of the conversation that has been posted. 
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CSACEB ~- ASCII-to-EBCDIC Conversion 
The CSACEB verb call converts data from ASCII to EBCDIC. 
FORMAT 


CALL "CSACEB" USING SNA~WORK-AREA 
CONVERT=-FROM-FIELD 
FROM- LEFT-MOST- POSITION 
CONVERT~TO-FIELD 
TO- LEFT-MOST- POSITION 
CONVERS ION-LENGTH 


DESCRIPTION 

The CSACEB verb converts data from ASCII to EBCDIC. The 
parameters used with this verb provide the buffers containing 
the data to be converted and the converted data. 


The maximum length of data that can be converted is 32,767 
bytes. 


If you want to convert the data in place, specify the same 
Gataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 


Do not convert the two=byte binary 
the logical record. 


length field of 
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CSEBAC - EBCDIC-to-ASCII Conversion 
The CSEBAC verb converts data from EBCDIC to ASCII. 
FORMAT 


CALL "CSEBAC* USING SNA~WORK~AREA 
CONVERT=FROM-FPIELD 
FPROM- LEFT-MOST= POSITION 
CONVERT~TO-FIELD 
TO-LEFT-MOST-POSITION 
CONVERS ION-LENGTH 


DESCRIPTION 


The CSEBAC verb converts data from EBCDIC to ASCII. The 
parameters used with this verb provide the buffers containing 
the data to be converted and the converted data. 


The maximum length of data that can be converted is 32,767 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 


Do not convert the two-byte binary length field of 
the logical record. 
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Section 6 
RESTART 


This section describes the procedures for restarting an LU 
Type 0 session that has been abnormally terminated. Topics 
includes: 


© 


Configuration Options 


- Preestablished Session Groups 
- Reserved LUs 


Normal Termination 
Abnormal Termination 
Restart Logic 

Conf irmation 

Release Time 

Message Resynchronization 


Rules for restart. 
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CONFIGURATION OPTIONS 


The application programmer has the option of allowing the AIF 
to assign any available LU to a session or defining 
preestablished session groups during conf iguration with or 
without reserved LUs. A preestablished session group is a group 
of one or more permanent sessions that are preestablished for 
later use when the AIF is brought up. 


All sessions in the group are established with one host LU 
and are preestablished using one Session Type Descriptor (STD). 
Subsequent application calls for sessions to that host LU, which 
Specify the appropriate STD, cause the AIF to assign an available 
LU from this group to the calling application. 


Preestablished session groups and reserved LUs are specified 
during the configuration of the AIF. 


Preestablished Session Groups 


An AIF node can be configured to contain more than one 
polenta session groups. If high traffic to a particular 
ost LU is anticipated, a number of permanent sessions can be 
established to reduce the overhead required to establish these 

sessions each time a SSINIT/CSINIT session call is executed. 


When an application requests a session by executing a SSINIT 
Or CSINIT session call, a session from a preestablished session 
group will be assigned if one is available. If a preestablished 
session is not available, the AIF will assign an available LU to 
the application. The assigned LU then executes the procedure for 
establishing an LU-LU session on behalf of the caller. 


When an application uSing a preestablished session executes a 
SSTERM or CSTERM session call, the AIF does not actually 
terminate the LU-LU session, but makes this permanent session 
available for other SSINIT/CSINIT session call requests. 


Reserved LUs 


An LU can be reserved for special use by specifying 
RESERVED=Y in the LU entry of the configuration file. If an LU 
is reserved, an STD name must be provided. In order for an 
application to gain access to a reserved LU, the STD name 
specified with the SSINIT or CSINIT session call must be the STD 
name associated with this LU acdress in the configuration of the 
LU entry. 


A reserved LU can also be preestablished. Preestablishing a 
reserved LU saves the time required to establish a session when 
you execute a SSINIT or CSINIT session call. Preestablishing the 
session for a reserved LU does not assign it to a group. 
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NORMAL TERMINATION 
Normal termination can occur when the session is completed by 

the SSTERM or CSTERM session call or when an SOPR command is 

executed. The SOPR commands, STOP, ALTER, and SHUTDOWN, initiate 

an orderly termination to the current session. These commands do 

not cause the session to be held for restart. 

ABNORMAL TERMINATION 


Abnormal termination can occur for any of the following 
reasons: 


e® LU is deactivated. 
e Session is unbound unexpectedly. 


@ SDLC link failure (LU reactivated by the AIF node 
recovery). 


@e CICS/IMS transaction program ABEND. 


@ DPS 6 application program issues SSTERM or een 
abnormally. 


MOD 400 $§ 
group. 


ABORT command aborts the application task 


You can restart an abnormally terminated session by executing 
a SSINIT or CSINIT session call. The parameters that you provide 
in the $SINIT or CSINIT session call determine whether the call 
is being used to initiate a session or restart one. 


When you initiate a session using the SSINIT or CSINIT 
session call, you should store the two-word session ID (SCCB.SC 
SID in assembly language programs; the SESSION-ID field in COBOL 
programs). In order to restart a session after abnormal 
termination, you have to provide this session ID. You also have 
to provide the most recent send and receive sequence numbers and 
the last message. In assembly language programs, these are found 
in SCCB.SC_ SQN and SCCB.SC_ RSQ, respectively. In COBOL programs, 
these numbers are found in the MSG-RESYNC-SEND-SQN and 
MSG-RESYNC-RCV-SQN fields. These sequence numbers should be 
Stored after each’ send and receive in order to have the most 
current numbers available in case of abnormal termination. 


NOTE 


The session ID and the send and receive sequence 
numbers are system supplied. If a session 
terminates abnormally, you do not have access to 
these values unless you have previously stored 
them. 
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RESTART INITIALIZATION REQUEST 


| After a session has been successfully initiated, using the 
S$SINIT or CSINIT session call, the application has the option of 
notifying the AIF that the session should be held for restart. 
The application makes this request by executing the SSSI or CSSI 
session call (send interrupt) with the interrupt type ENAPRS 
(Enable Application Restart) to enable restart in the event of 
abnormal termination. 


This request is required to ensure that an application can be 
restarted. The session is not held without confirmation 
regardless of the configuration of the STD "Release on Abnormal 
Termination" parameter. 


| If you decide to negate this confirmation, execute the $SSI 
or CSSI session call with the interrupt type DSAPRS (Disable 
Application Restart). 


The application must restart the abnormally terminated 
session within the time specified in the STDs "Release on 
Abnormal Termination" parameter. Once the specified release time 
has elapsed, it is no longer possible to restart a session. If 
the application attempts to restart an abnormally terminated 
session that is not being held for restart, a return code of 
RCRSRF (restart failure) is returned. The sense data field shows 
the exact reason for this failure. 


RELEASE TIME 
The configuration of the STD used at session initiation 


determines how long the abnormally terminated session is to be 
held for restart. The three possibilities are: 


1. If the STD "Release on Abnormal Termination" parameter is 
configured IMMEDIATE, the session is not held at all. 


2. If the STD "Release on Abnormal Termination" parameter is. 
configured HOLD, the session is held indefinitely. 


3. If the STD "Release on Abnormal Termination" parameter is 
configured N(n..), the session is held for the specified 
ne. number of minutes. 


' The "Release on Abnormal Termination" can be overridden by 
the use of SNA Operator (SOPR) Control commands. 
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MESSAGE RESYNCHRONIZATION IN ASSEMBLY LANGUAGE 


If the SSINIT call successfully restarts a session, the 
i ape should examine the output control word in the SCCB 
SC OCT) 


An assembly language program should check for the following 
possible values in SCCB.SC OCT: 


lL. I£ the output control word indicates SCRSTS, then the 
host has sent the "ready to send" message and SC_SQN and 
SC_RSQ contain the new sequence numbers for the restarted 
session. 


2. If the output control word indicates SCL6RX, then the 
last message being sent by the local program was lost, 
and the local application must retransmit the last whole 
message. 


3. If the output control word indicates SCHORX, then the 
last message being sent by the host was lost, and the 
host must retransmit its last whole message, and the 
local application must execute a receive. 


If the CSINIT call successfully restarts a session, the 
application should examine the OUTPUT-CONTROL-WORD field. 


A COBOL program should check for the following possible 


values in the OUTPUT-CONTROL“WORD: 


1. If the SET-SEND-RECV-SEQ = "Y¥", then the host has sent 
the "ready to send” message and MSG~RESYNC-SEND-SON and 
MSG-RESYNC-RCV=SQN contain the new sequence numbers for 


the restarted session, 


a 


2. If APPL~RESEND=REQUIRED = "Y", then the last message 
being sent by the DPS 6 was lost, and the local 
application must retransmit the last whole message. 


3. If HOST-RESEND-REQUIRED = “Y¥", then the last message 
being sent by the host was lost, and the host must 
retransmit its last whole message, and the local 
application must execute a receive. 


RULES FOR RESTART 


When you attempt to restart a session that has abnormally 
terminated, you must restart it from the original task in which 
it was executing. The only time you may attempt to restart a 
session from a task other than the original task is when the 
application task group has been aborted. 
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| If a session has abnormally terminated due to task group 
termination, the application can restart the session from any 
other group using the S$SINIT or CSINIT session call, specifying 
RESTART and the correct session ID. If you must restart a 
session that has been terminated in this manner, the following 
restrictions apply: 


1. The application cannot have any other sessions active 
when attempting to restart. 


2. The session that is restarted is given the option of 
restarting all of the aborted sessions of its session 
group. 


Figure 6-1 demonstrates a task restarting its sessions. 


SESSION | 
es we ——| SESSION | 
TR meen §8=8=6SESSION 
TASK a _ amast 


85-273 


5 APPLICATION § 
| PROGRAM 


Figure 6-1. Session Restart 


Each of these sessions has been running in the same task, 
When one or more of the sessions has been abnormally terminated, 
the abnormally terminated sessions must be restarted from the 
Original task. The application program has the option of 
restarting each session individually. 
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Section 7 


SUPPORT AND 
MAINTAINABILITY 


This section discusses the role of SNA in supporting and 
maintaining the Application Interface Facility (AIF). Topics 
include the following: 


SNA Operator Services 

Maintenance Utilities 
Communications Network Management 
- ATF Alerts 

-~ AIP Maintenance Statistics. 


© 


The control operator can use the SOPR facilities of the SNA 
Transport Facility for the following: 


@ Changing the state of an AIF LU (ALTER) 

@ Determining the status of an LU session (STATUS) 

® Clearing the correspondence between a local LU, a local 
application program, and the host system (ABORT, SHUTDOWN, 
STOP). 

These commands can be entered through the SOPR menu system or 


from a command line. The SOPR commands and their arguments are 
described in detail in the SNA Operator's Guide (Order No. Gx10). 
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MAINTAINANCE UTILITIES 


The following GCOS 6 SNA maintenance utilities are provided 
to aid in problem isolation: 


@® Trace/Software Probe Points 


The AIF supports the Data Base Augmented Real-Time Tracing 
System (DARTS) utility which allows the user to take a 
snapshot of AIF activity. The utility records specific 
events in order to aid in problem determination. 


The AIF Trace Information Capture Specification (TICS) 
file is located in: 


- >SID>AIF_L.TICS for LUs 
- >SID>AIF P.TICS for Pus. 


@ SNAMAP 


The AIF supports the SNAMAP utility which displays all 
existing SNA node structures, including AIF-specific _ 
information and journal statistics. The SNAMAP commands 
and operating procedures are described in detail in the 


SNA Operator' s Guide. 
@ The AIF_DUMP file 


If the AIF detects an unrecoverable program error, it 
automatically executes SNAMAP and puts the dump file in | 
>>CCD>AIF DUMP. This dump file includes all existing node 
structures for the SNA products currently being executed. 
The following sequence occurs: 


1. The application program is informed that the session 
has been aborted. The return code RCPGER is returned. 


2. SNAMAP executes an emergency dump and puts it into the 
file >>CCD>AIF DUMP. A message appears on the console 
to inform the operator. Processing continues after 
the dump is completed. 


3. The host is directed to terminate the session. The 
affected LU then becomes available for assignment to 
other callers. | 


The AIF limits itself to 10 dumps into the file 

>>CCD>AIF DUMP. This file should be printed and forwarded 
to your local Honeywell representative for analysis, then 
deleted in order to conserve file space. We recommend 
that the STARTUP.EC include directives to test for the 
existence of >>CCD>AIF DUMP and print and delete its 
contents. 
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e Event Logging 


The AIF makes an entry in the SNA event log when it 
detects system or transmission errors and when a session 
recovers from an error. 


@ SNEDIT 


The SNEDIT utility allows the user to display SNA journal 
files interactively . The SNEDIT program allows you to 
enter various commands to specify parameters that define 
journals you wish to display. 


These utilities are described in detail in the SNA Operator's 
Guide, 


COMMUNICATIONS NETWORK MANAGEMENT 


The Communications Network Management (CNM) Facility allows 
LU Type 0 application programs to send alerts and statistics via 
the AIF to the IBM host. Alerts are unsolicited messages that 
inform the host network operator of an error. The AIF creates 
the transmission headers for these messages, but the application 
program must provide the message itself. The message must be 
formatted according to the IBM formats for alerts as detailed in 
Figure 7-l. 


Maintenance statistics are solicited messages that supply 
application-dependent information, which the host requests. The 
AIF creates the transmission headers for these messages, but the 
application program must provide the message itself. The format 
of the message is determined by the application. AIF alerts and 
maintenance statistics are discussed on the following pages. 


As part of the program interface, the AIF allows application 
programs to alert the host network operator that a major error 
has occurred by sending an SNA alert. 


An SNA alert is used to inform the Network Communications 
Control Facility (NCCF) or Network Problem Determination 
Application (NPDA) that a problem exists on the DPS 6 side. The 
AIF generates an alert on behalf of the DPS 6 application program 
via the SSSI (send interrupt) session call where the interrupt 
type is specified ALERT. 


The error message contents of the alert are provided by the 
application, which must create. a buffer in the format which the 
IBM host can handle. The AIF supplies bytes 0 through 7 and the 
remainder of the alert. Bytes 8 through n, which are supplied by 
the application program, must follow the format described in 
Figure 7-l. 
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| BYTE(S) 


0-2 
s=/ 
8-11 


12-13 
14 
15 


15 


16 


DESCRIPTION 


Network 


services header; x*'410384' 


CNM header 
Node identification 
Bits O-ll: Block number 
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Reserved 
X'40! 
bits 0-3: Event type 
, X'1l' = Permanent error 
X'2' = Temporary error 
X'3' = Performance 
bits 0-3: Event type (cont.) 
X'4° = Operational/Procedure 
X'5' = Customer Applications generated 
X'6' = End user generated 
X'7' = reserved 
X'8' =Intensive mode recording 
bits 4-7: Major cause code 
X'l' = Hardware/microde - either 
X¥'2' = Software 
X'3' = Communications 
X'4' = reserved 
X'5' = Environment 
X'6' = Removable media 
X'7' = Hardware/software - either 
4'8" = SNA logical 
X'9' = Operator: of sending message 
X'A' = Media/hardware - either 
X'B' = Explicitly hardware 
X'C' = Explicitly microde 
X'*D' = SNA protocol 
X'E' = Link Level protocol 
X'F' = Undetermined 
Minor Cause Code 
X'01' = Base processor 
X'02' = Service processor 
X'03' = Microde; non-customer programmable 
X'04' = Main storage 
X'05' = DASD device 
X'06' = Printer 
X'07' = Card reader/punch 
X'08' = Tape device 
X'09' = Keyboard 
X'OA' = Selector pen 
X'OB' = Magnetic stripe reader 
X'OC' = Display/printer 
X'OD' = Display device 
X'OE' = Remote Product 
X'OF' = Internal power supply 
X'10' = I/O attached controller 
Figure 7-1. IBM Alert Format 
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DESCRIPTION 


X11! 
x a2° 
X'13' 
X'1 4! 
X'15° 
X'16! 
X'17! 
X'18! 
X'19! 
X'1A' 
X'1B! 
X'1c! 
xt1p! 
X‘1E’ 
X'1F! 
X'21' 
ya ie 
X'24! 
X'25' 
X'26' 
x27" 
X'28° 
X'29' 
X'2A! 
X°2B° 
X'2C! 
x 2D! 
X'2E' 
X'2F° 
X'30' 
X'31! 
X32 5 
» eae a 
X'34! 
baie Boas 
X'36! 
x37" 
Koo" 
X'39! 
X'3A' 
X°3B! 
X'3C! 
x" 3D" 
X'3E! 
X'3F! 
X'40' 
X'41' 
X'42' 


Htdtanmnrh hnth ann tantanw a 


“ou a 


inntknrinrhintntnnt na tah a en et tt em on 


Figure 7-1 (cont). 


Minor Cause Code (cont.) 


COMC scanner 

COMC line adapter 

reserved 

Channel adapter 

Loop adapter 

Direct attach adapter 
Adapter 

Channel 

Link — 

Link (common carrier) 

Link (customer) 

Loop 

Loop (common carrier) 

Loop (customer) 

X.21 network 

Local X.21 interface 

Local modem 

Remote modem 

Local modem interface 
Remote modem interface 
Local probe 

Remote probe 

Local probe interface 
Remote Probe Interface 
Network connection 

IBM program SCP or major appl. 
IBM application program 
IBM communication access method 
Customer application program 
IBM COMC program (T4 PU) 
IBM control program 
Remote/modem/interface product 
Line/remote modem 

SDLC data link control 

BSC data link control 

S/S data link control 
Reserved 

Power - external 

Thermal 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Negative SNA Response 

Gen or customize parameter 
External facility 
Component off line 


IBM Alert Format 
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BYTE(S) 


DESCRIPTION 


16 Minor Cause Code (cont.) 
X'43' = Component busy 
X'44' = Controller or device 
X'45' = Local probe modem interface 
X'46' = Reserved 
X'47' = Card reader/punch or display/printer 
X'48' = Controller application program 
X'49' = Keyboard or display 
X'4A' = Storage Controller 
X'4B' = Channel or storage unit 
X'4C' = Reserved 
X'4D' = Controller 
X'4E' = Reserved 
X'4F' = Reserved 
X'50' = Reserved 
X'51' = Reserved 
X'52' = Maintenance device 
X*'53* = Maintenance device interface 
X¥'67' = Sensor I/O unit 
X'68* = Magnetic stripe reader/encoder 
%'69' = Check reader 
X'6A’ = Document feed 
X'6B' = Coin feed 
X'6C' = Envelope depository 
X'FF' = Undetermined 
17 Reserved 
18 User action code; used by NPDA, together with 


block number, to locate the alert/event 
description on the alert displays, the proper 
recommended action display, and the proper event 
detail display. | 
19 Reserved. 
After these fields, one or more of the following 
appended vectors may be included. 


TEXT VECTOR 


0 Vector length (binary) 
1 X'00' = vector type 
2-n | Text message; up to 100 bytes of customer 


defined data 


DETAIL QUALIFIER VECTOR 


0 Vector length (binary) 
1 X'OD' = vector type 
2-n Detail qualifiers; information to be shown on 


the NPDA Event Detail screen 


There may be multiple detail qualifier vectors in the 
- same RU. | 
Figure 7-1 (cont). IBM Alert Format 
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BYTE(S) DESCRIPTION 


NAME LIST VECTOR 


0 Vector length (binary) 
1 X'OC"’ = vector type | 
2 X'02° = hierarchy name list in this vector is 


used with network names supplied by 
higher levels of CNM code. 


3 Number of entries in the name list 

4=n Name list; identifies non NAU failing 
components. Each entry has the following 
format: 


Byte 0: Length 
Byte l=-x: Resource name 
Byte x+l thru x+4: Resource type as follows: 


NULL VECTOR 
X'O00' = zero length; indicates end of vectors. 


0 


ADAP Adapter 

ALA Alternative line attachment 
ALS Adjacent link stations 

BSC Binary Synchronous link 

CHAN Channel 

COMC Communications controller 
CPU Central processing unit : 
CTF Customer transaction facility 
CTRL Controller 

DCA Device cluster adapter 

DEV Device | | 

DISK - Disk drive 

DSKT Diskette drive 

LOCU I/O control unit 

LCTL Local controller 

LDEV Local device 

LINK Communications link 

LOOP Loop 

NETW Network 

PGM Program 

PROG Program _ 

SCF - System Control Facility 

SCU Storage control unit 

STAT Terminal station on loop 
TAPE Magnetic Tape Drive 

TCU Tape controller 

Ua hs 4 Teletype 

USER Human or programmed operator 
WKST Workstation 

nnonn Machine type designator 


Figure 7-1 (cont). IBM Alerts Format 
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AIF Maintenance Statistics 


As part of the program interface, the AIF allows Session Type 
0 programs to send maintenance statistics to the host network 
Operator in response to a Request for Maintenance Statistic 
(REQMS) Type 4 made by the host. 


The AIF generates a reply called Records of Formatted 
Maintenance Statistics (RECFMS Type 4) on behalf of the local 
application program via the SSSI (send interrupt) session call 
where the interrupt type is specified STATIC. 


The application must create a buffer in the format that the 
IBM host can handle. The AIF supplies bytes 0 through 7 and the 
remainder of the RECFMS. Bytes 8 through n, which are supplied 
by the application program, are application-dependent and 
formatted in any way that the host program requests. 


7-8 GRI1-01 


Appendix A 
AIF ARCHITECTURE 


The Application Interface Facility (AIF) is a general 
interprogram communications facility that DPS 6 programs can use 
to communicate with programs executing under the IBM host 
transaction processing systems Customer Information Control 
System (CICS) and Information Management System (IMS). The 
communicating programs on the DPS 6 are referred to as 
application programs, while those on the host are referred to as 
transaction programs. 


The AIF is a structured interface, That is, the AIF 
specifies a number of formatted requests called session calls for 
LU Type 0, and verbs for LU Type 6.2, that the transaction 
program uses to request communication functions. These session 
calls equate to specific macrocalls within the AIF. 


The AIF adheres to Honeywell's SNA interprogram 
communications architectural principals. The architecture of the 
AIF is shown in Figure A-l and is described below. 


There are three logical subcomponents of the AIF: the 
Physical Unit (PU) subcomponent, the LU subcomponent for each LU 
configured, and the monitor call handler subcomponent. 


This appendix describes each of these subcomponents and the 
modules that make up the LU subcomponent. 
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TP1 i +P2 


HOST 


IMS / DC 


SNA 


DPS 6 


BASELINE 
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raAaZzo 


LU TASKS 


MONITOR CALL HANDLER 


APPL1 APPL? APPL4 
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Figure A-l. Overall Architecture of AIF 


A-2 ~ GR11-01 


Figure A-l1 shows the relationship between the different 
components and modules which comprise an active AIF session. 
DPS 6 transaction programs designate LU sessions through the 
Monitor Call Handler. The protocol handler module supervises the 
passing of calls from the control module to the session control 
module and on to the baseline. 


On the host side, transaction programs communicate with the 
baséline through the IBM subsystems CICS and IMS. 


PU SUBCOMPONENT 


The PU subcomponent acts as the executive for the AIF program 
product. The only time the PU subcomponent is active during a 
session call is during the initialization or termination when it 
creates and terminates the LU tasks. The PU subcomponent 
interfaces to the Administrative Control System (ACS), SNA 
Operator Services (SOPR), and the monitor call handler. PU also 
sends the ALERT and maintenance statistics and Communications 
Network Management (CNM) commands. 


The LU subcomponent sends and receives data on behalf of the 
application program. It interfaces to the SNA network via the 
baseline. The LU subcomponent is comprised of three modules: 


@ The control module 
® The protocol handler module 
@ The session control module. 


The LU control module has two main functions. It handles the 
external interfaces to the PU, the application program, or to 
transmission services; and it provides the mainloop processing 
for the LU, controlling the execution of the session control 
Subroutines and the protocol handlers. 


Protocol Handler Module 


The protocol handler executes the session call subroutines on 
behalf of the session call executor. This module is responsible 
for consistent use of session calls. : 


Session Control Module 


This module provides the subroutines that define the session 
call macros that actually interface to the SNA baseline. MThese 
subroutines are executed by protocol handlers. Subroutines are 
provided to receive, send, initiate a session, terminate a 
seession, send interrupt (control) information, and various other 
Subroutines to support these functions. | 
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MONITOR CALL HANDLER SUBCOMPONENT 


The monitor call handler is the main interface between the 
application program and the LU and PU tasks. It manages the 
intertask group communication from the user task group, and in 
general acts as the interface to the AIF services. 


When the monitor call handler receives a SSINIT or CSINIT 
session call from an application program for a session type 0, or 
a SSALLO or CSALLO for Type 6.2, it sends an application service 
request (any session call the application passes to the AIF). In 
response, the AIF returns the SCCB or VPB to the FU 
Subcomponent. The PU subcomponent looks for an available LU and 
assigns it to the application task. 


For the rest of the session, the monitor call handler sends 
and receives application service requests/responses via the 
control module of the LU subcomponent. This relationship is 
shown in Figure A-2. 


AIF 
TASK 
GROUP 


APPLICATION 
TASK GROUP 


ADMINISTRATIVE 


PROGRAM 


PU SUBCOMPONENT 


SESSION 
CALL 


CONTROL | PROTOCOL 
MODULE HANDLER 


MONITOR SESSION CONTROL 
CALL MODULE 


HANOLER 


| LU SUBCOMPONENT 
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Figure A-2. Application Service Request/Reply Handling 
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When a session call is made, the monitor call handler checks 
the status of the call and issues an application service request 
to either the PU or the LU task, as appropriate. On the initial 
call for a session, the service request is directed to the PU. 
The monitor call handler issues service requests for subsequent 
calls to the LU. 


When the PU or the LU completes a service request, it issues 
a service reply to the monitor call handler. The LUO application 
must determine when an asynchronous call is completed, since the 
application program is not awakened until a SSWANY or CSWANY 
session call is executed following an asynchronous send or 
receive. 


BASIC OPERATION 


The ACS is the lead task in the group running the AIF. At 
start up, ACS creates and requests the PU task, which in turn, 
creates the LU tasks necessary to send and receive the data. 


In order to execute a session call, the user executes a 
session call with parameters in the application program. MThese 
macrocalls resolve into the session call control block and a 
monitor call. When the monitor call is executed, a monitor call 
handler processes the call in the user task group. 


The monitor call handler checks the state of the session, 
copies the user data block to a global memory block and issues an 
application service request to either the PU or LU task residing 
in the AIF task group. 
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Appendix B 
SAMPLE ASSEMBLY 
LANGUAGE PROGRAM 
FOR LU TYPE 0 


The following pages contain the source listing for an 
assembly language program to demonstrate the use of Application 
Interface Facility LU Type 0 session calls. 
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cmd 


TO-TTYS 


TITLE PISPL1,'84122711' PI SAMPLE } 


LIBM *>UDD> IBMSNA>MACRO>MAC_ USER‘ 
LIBM OS_LIB 


LIBM EXEC_LIB 
* é 


KHAAEEKEEERETEAKEEKAEKREEEKEKEEKAEEEEEERKAEAKEAEEERARERAKEKKEAEE 
REKKEAKKEEAAEKEKEEAEAKEKEKEKEKEREEAREAEEEAAEKEKEARKEAEAKHEKEKEE 
bi 


THIS MODULE MAKES USE OF ROUTINES IN OTHER MODULES: 
PROCES ; PERFORMS OTHER NECESSARY PROCESSING 


BLDMES : PROVIDES ACTUAL MESSAGE 
TO BE SENT TO THE HOST 


TOCALR HAVING RECEIVED A MESSAGE 
FROM THE HOST, THIS ROUTINE WILL 
DELIVER THE MESSAGE TO THE END USER. 


CHK_RCs CHECKS THE RETURN CODE FOR 

GENERIC SITUATIONS SUCH AS SOPR 
‘STOP’ WITH TIME OUT, INTERRUPT 
RECEIVED, ETC. FOR REASONS OF 
SIMPLICITY, THE RESULTS OF TEIS 
CHECK ARE IGNORED IN THIS MODULE, 
SINCE RETURN CODE ANALYSIS IS A 
MATTER OF PERSONAL PREFERENCE. 


GTMEM THIS SUBROUTINE GETS THE AMOUNT 
OF MEMORY SPECIFIED IN $R6,7. JUST 
AS THE REGULAR SERVICE CALL DOES, 
BUT GTMEM ALSO WILL CLEAR THE GOTTEN 
MEMORY TO THE VALUE SPECIFIED IN $R5 


c¢* +e eee eee HEH He HEHE He EH De HEH HH DH HD 


KRHEKKEEAEAEAEAEAAEREKEARHEEKRKEERAREAHAEREKEBERERRAEEKRKEKE 
KRKEAKRKKERKEREEKAAEKAERKREEKEEKAKAEEREALEAAEKERGCKEEEREAKAKAKAKAKKSE 
* 


. BELOW IS THE DISPLACEMENT MACRO FOR THE 
x SESSION CALL CONTROL BLOCK 
* 
$SSCCB 
* 
x BELOW IS THE MACRO FOR THE 
: AIF RETURN CODES 
* 


SSAIRC 


Figure B-l, Source Listing of Sample Assembly 
Language Program | 


€-d 


TO-T THD 


PISPL1 


BUF_ SZ 


BUFSZB 
® 


& 
& 


WKSP 

MYSTAK 
CNTLWD 
MYSCCB 
BUFFER 
WKSPSZ 


XLOC PROCES , BLDMES , CHK_ RC, TOCALR, GTMEM 


CTRL LINK SPLSUB 

RESV 0 

XDEF PISPL1 

EQU 350 WORDS (700 BYTES) BUFFER 

EQU (BUF_SZ) *2 BUFFER SIZE IN BYTES 


WORK LOCATIONS: STACK, SCCB, & S/R BUFFER 


EQU 0 BEGINNING OF WORKSPACE 
EQU WKSP+50 REGISTER STACK 

EQu MYSTAK FOR PROGRAM CONTROL 
EQU CNTLWD+1 BEGINNING OF SCCB 

EQU MYSCCBt+SC_SI@ S/R BUFFER 

EQU BUFFER+BUPF_ 8&2 WORK SPACE SIZE 


. VALUES FOR CONTROL WORD (CNTIWD) 


EQU zZ°*g? SESSION IS UP INDICATOR 
RESV 0 

THIS ROUTINE EXECUTES SEVEN MACROS IN THIS SEQUENCE: 
SSINIT(ASYNC), SSWANY (WAIT FOR S$SINIT), S$SSEND (ASYNC), 
SSWANY (WAIT FOR SSSEND), S$SRECV (ASYNC), S$STEST (TEST 
POR SSRECV), AND SSTERM. 


RESV 0 


* GET MEMORY FOR WORKSPACE, SCCB, & SEND/RECEIVE BUFFER 
* 


SA 


Figure B-1 (cont). 


LDV SRE , 0 AMOUNT OF MEMORY TO $R6 AND 
LDR SR7 -=WKSPSZ TO §$R7 

LDV SR5 ,0 CLEAR TO ZEROES 

LNJ $B5 ,GTMEM GO GET THE MEMORY 

BEZ SRL, >+SA IF NO ERROR 

B ERROR 

RESV 0 

LAB SB6 , SB4 $B6 -> WORKSPACE 

LAB SB7 , $SB4.MYSTAR $B7 ~> REGISTER STACK 


THERE FOLLOWS TBE MAIN LINE CODE 


RESV 0 

LDV SR5 ,6 # OF INIT RETRIES 

RESV 0 

STR SR5 ,~$B7 $R5 HAS NO. OF INIT RETRIES 
LOAD $84 WITH SCCB PTR. 

LAB $B4 , $B6 .MYSCCB $B4 -> SCCB 


Language Program 


Source Listing of Sample Assembly 


LTO-TTYS 


* RECEIVE THE REPLY % 
tenewmescscrree eer eese eset eeeeesesessees tk 
* | 
* LOAD $B4 WITH SCCB PTR., $B3 WITH BUFFER ADDRESS 


* 
LAB $B4, $B6.MYSCCB $B4 -> SCCB ADDR 
LAB $B3,$B6.BUFFER BUFFER ADDRESS TO $B3 


SSRECV 7=$B3 »=BUFSZB,L,ASYNC,MSG 


% 


CHECK THE RETURN CODE FOR CALL ACCEPTED 


* & 
LB =$R1,=RCSCNL IF CALL IS NOT ACCEPTED, 
BBT ERROR THEN GET OUT 
CMR $R1 ,=RCNOEV 
BE >+$C 
LNJ $B5 ,CHK_RC 
BNEZ $R2, ABNMRC 
sc RESV 0 
& 


Resse snssscesSscssocssscscossss ses eBesTeSBeeesseseassesa k& 


* EXECUTE AN AIF TEST (S$STEST) FOR THE ASYNC $SRECV * 


Sexes SsSstSKTSsASESsTaeSwSosnccscessrSsce sense cecrreasees * 
t 
* WHILE RECEIVE DATA IS TAKING PLACE, 


* PERFORM OTHER NECESSARY PROCESSING. 
* 
SA RESV 0 
LAB $B4,$B6 .MYSCCB ADDR OF SCCB TO $B4 
SSTEST | 
LB =$R1,RCSCMP IS CALL COMPLETE? 
BBT >+$D INDEED IT ISi 
LNJ $B5 ,CHK_RC CHECK POR GENERIC RETURN CODE VALUES 
BNEZ $R2,ABNMRC GOT ABNORMAL RETURN CODE 
LNJ $B5, PROCES BUSY WORK WHILE ORDER IS STILL OUTSTANDING 
B >-SA GO BACK AND TEST AGAIN 
$D RESV 0 
CMR $R1 ,=RCNOER 
BE >+$Q GO CONTINUE PROCESSING 
CMR $R1,=RCRB2S 
BE >+$X RECEIVE BUFFER TOO SMALL 
CMR $R1,=RCIMPS 
BE >+$X IMPROPER STATE 
CMR $R1 ,=RCIRHI 
BE >+$X INVALID INPUT CONTROL WORD INDICATORS? 
CMR $R1 ,=RCDTCL 
BE >4+$X RECV REJECTED: DATA TRAF. CLEARED OR INACT. 
CMR $R1,=RCNEGC TPN MAY HAVE BEEN INCORR, IN THE SEND 
BE >+$X 
B >ERROR 
$x RESV 0 COME HERE TO BOMB. 
B >ERROR 
$Q RESV 0 


Figure B-1 (cont). Source Listing of Sample Assembly 
Language Program 


c¢-d 


TO-TTHD 


* SESSION IS ESTABLISHED, SO $SSEND IS NOW POSSIBLE. 
bd BLDMES (IN SUBROUTINES MODULE), SETS MESSAGE TO BE 
* SEND TO HOST; BLDMES NEEDS BUFFER ADDRESS IN $B2. 
& 

LAB $82, $B6.BUFFER BUFFER ADDR TO $B2 

LNJ $B5,BLDMES MOVES DATA TO BUFFER FOR SSSEND 
& 
teamaa seem eres ese eee eee See eee 
sd SEND THE DATA a 
teerameassrrstsnesee sects easeserseerzan & 
& 
% LOAD $B4 WITH SCCB PTR., $B3 WITH BUFFER ADDRESS 
& 

LAB SB4,$SB6.MY¥SCCB $B4 -> SCCB ADDR 

LAB $83 ,$B6.BUFFER BUFFER ADDRESS TO $B3 

SSSEND -=$B3,=BUFSZB,L,ASYNC,REPLY,MCMP 
& 
t CHECK THE RETURN CODE FOR CALL ACCEPTED 
& 

LB =SR1,*#RCSCNL IF CALL IS NOT ACCEPTED, 

BBT ERROR THEN GET OUT 

CMR SR1 ,=RCNOEV 

BE >+8C 

LNJ $85 ,CHK_RC GO CHECK FOR INTERRUPT, TIME_OUT, ETC. 

BNEZ SR2, ABNMRC : 
$c RESV 0 
& 


. EXECUTE AN AIP WAIT ANY (SSWANY) FOR THE ASYNC $SSEND nd 


& 


SSWANY 
CMR SR1 ,=RCNOER 
BE >+$Q | GO CONTINUE PROCESSING 
LNJ SB5 , CHK_RC GO CHECK THE RETURN CODE 
BNEZ $R2,ABNMRC | 
CMR SR] ,=RCRNEG 
BE >+$X HOST WON'T INIT 
CMR $R1,=RCIMPS . 
BE >+$X IMPROPER STATE 
CMR SR1 ,#RCNEGC | 
BE «+ >*SX -~RSP RECEIVED, FORGET IT 
CMR $R1,=RCIRHI . | 
BE >+GxX INVALID INPUT CONTROL WORD INDICATORS? 
CMR $R1 ,=RCDTCL 
BE >+$x SEND REJECTED: DATA TRAF. CLEARED OR INACT. 
B ERROR 
$X RESV 0 COME HERE TO BOMB. 
B ERROR 
$Q RESV 0 


Figure B-1 (cont). Source Listing of Sample Assembly 
Language Program 


TO-TTYSD 


*#aemsmne eee ese secs seSeeseeeseeresenesesssesss t 


*® INITIATE THE SESSION 


| o-? +--+ —-2-¢--2--t-0-4-¥ 2-2 _-¢ ft -$-+-¢-¢- 1-2 2-0? 0-9 -¢ 0-02-32 + 3-7-4 7] & 


* 


t 


SSINIT , *AIF501', ‘AO6CICS', 'BB' ,ASYNC,NO_ RESTART 
*& 
* CHECK THE RETURN CODE 
t 
CMR $R1 ,=RCNOEV WAS CALL ACCEPTED BY AIF? 
BE >+SW GO WAIT 
CMR $R1,=RCINOD 
BE ERROR INVALID NODE NAME 
CMR $R1,=RCNNAC 
BE ERROR NODE NOT ACTIVE YET 
CMR $R1,=RCNLAC 
BE ERROR NO LUS ACTIVE YET 
& 
& UNKNOWN RETURN CODE, SO GET OUT 
& 
iB ERROR 
SW RESV 0 COME HERE T0 WAIT FOR INIT TO COMPLETE 
« : 
Resear ese SSS SSS SSS SSS SSSSSRSESSHSSSRESSSSSSESSSASASTESSE Besser ers & 
* EXECUTE AN AIF WAIT ANY (SSWANY) FOR THE ASYNC $SINIT * 
Resse se Sees SBS SSS SSS SSSHSSESSE SSS ASK SSSA KES BSEKR SESE Sess seek 
& 
SSWANY 
CMR $R1,=RCNOER | 
BE >+8Q GO CONTINUE PROCESSING 
CMR $R1,=RCRNEG 
BE >+$X HOST WON'T INIT 
CMR $R1 ,=RCNEGC 
BE >+$X ~RSP RECEIVED, FORGET IT 
CMR $R1,=RCISTD 
BE >+$X INVALID STD NAME 
CMR S$R1,=RCILUT 
BE >+$X LU TYPE IN STD IS WRONG 
CMR $R1 ,=RCNOAV NONE AVAILABLE?? 
BNE >+$X 


+ 


SSUSPN 
LDR 
BDEC 
$x RESV 
B 
$Q RESV 
LDR 
LBT 


Figure B-l (cont). 


T ,=2 

$R5 ,+$B7 
$R5,MAIN_A 
0 


ERROR 
0 
$R5 ,+$B7 


$B6. CNTLWD, SESSUP 


WAIT 0.2 SECONDS AND TRY AGAIN (RETRY 6 TIMES) 


GET COUNTER FROM STACK 


COME HERE TO BOMB, 
CAN'T ESTB. SESSION, SO GET OUT 


ADJUST $B7 
RECORD THAT SESSION IS UP 


Source Listing of Sample Assembly 
Language Program 


‘L-4 


TO-TTHO 


& 
* 


bd 


MOVE DATA TO CALLER'S BUFFER 


LNJ 


$B5 ,TOCALR 


TERMINATE THE SESSION 


* 


& 


® 


& 


» 


& 


$c 


$D 
QUIT 


Figure 


LDV 


SSTERM 


SRZ 0 
e=SR2 


CHECK THE RETURN CODE 


CMR 
BNE 
B 


SR1 ,=RCNOER 
>ERROR 
>+$C 


WRAP UP AND GO HOME 


RESV 
RESV 
LBF 
BBF 
STR 
LBT 
SSTERM 
LDR 
RESV 
CMR 
BNE 
LDV 
RESV 
LDR 
RESV 
LAB 
SRMEM 
STRMRQ 
END 


B-1l (cont). 


0 ' COME HERE 


0 
$B6.CNTLWD,SESSUP 
>+$C 

SR1,-$B7 
=$R2,=SCATRM 
e=$R2 

SR1,+SB7 

0 


§R1 ,=RCNOER 


 >+SD 


eR1 ,0 

0 

$R2 -=$R1 
0 
SB4 , $B6 


PISPL1 , START 


Language 


& 


SET ALL BITS TO ZERO, 
INCLUDING THE ABNORMAL TERM. BIT 
NORMAL TERMINATION 


CHECK RETURN CODE FOR COMPLETION 


If ABNORMAL RET. CODE (IGNORE IT) 
IS SESSION UP? 

IF NOT 

SAVE RETURN CODE 

SET FOR ABNORMAL TERM. 

RESTORE RETURN CODE 


IF NO ERROR, DONT REPORT 


RETURN STATUS IN §$R1l 


SET UP TO RETURN WORK SPACE 


Source Listing of Sample Assembly 


Program 


Appendix C 
SAMPLE COBOL PROGRAM 
FOR LU TYPE 0 


The following pages contain the compilation listing of a 
COBOL program demonstrating the use of Type 0 session calls. 
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Aag®) 


TO-TTYD 


GCOS6 MOD400-R3.1-06/11/1913 COBOLA 4.0 


COMPILED BY: 
COMPILED ON: 
OPTIONS: 


COBOLA VERSION 4.0 04/11/1606 
85/03/07 0818 


-LIST_OBJ 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CD31. 


CD31 85/03/07 


AUTHOR. SMITH THIS PROGRAM INITIALIZES SYNC; SENDS 
DATA USING ASCII CHARACTERS WHICH ARE TRANSLATED 
TO EBCDIC; RECEIVES DATA USING EBCDIC CHARACTERS 
WHICH ARE TRANSLATED TO ASCII; DISPLAYS RETURN 
RECEIVE BUFFER. 


CODES AND DISPLAYS 
DATE-WRITTEN, 850228. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER, LEVEL-6. 
OBJECT-COMPUTER, LEVEL-6. 
DATA DIVISION, 
WORKING-STORAGE SECTION. 
77 SNA-WORK~AREA 

77 NODE~NAME 

77 REMOTE-LU-NAME 

77 STD-NAME 

77 SYNC-NAME 

77. ASYNC 

77 RESTART 

77 NO-RESTART 

77 SESSION-ID 

77 MSG-RSYNC-SEND-SQN 

77 MSG-RSYNC~RCV-SQN 

77 SEND-BUFFER 

77 SEND-BUFFER-SIZE 

77 DATA-BUFFER-ALIGNMENT 
77 REPLY-NAME 

77 MSG-COMPLETE 

77 PMH 

77 RQD 

77 RECEIVE-BUFFER 

77 RECEIVE-BUFFER-SIZE 
77° MSG 

77 RECEIVED-DATA-LENGTH 
77 DATA-LENGTH 

77 WORK-AREA-ID 

77 NSRP | 

77 SENSE-DATA 

77 FROM-FIELD 

77 FROM-LEFT-MOST- POSITION 
77 TO-FIELD 

77 TO-LEFT-MOST- POSITION 
77 CONVERSION-LENGTH 


X(200). 

¥(8) VALUE *SPI501". 
X(8) VALUE "AO6CICS", 
XX VALUE "BB". 

X VALUE “S*, 

X VALUE “A*,. 

X VALUE *R*, 

X VALUE °N*, 

X(4). 

9(5) VALUE 0. 

9(5) VALUE 0. 


X¥(16) VALUE “ADLOABCDEFGHIJKL". 


9(5) VALUE 16. 
X VALUE “L”. 

X VALUE *R®, 

X VALUE *¥". 

X VALUE "Y*, 

X VALUE *Y", 
X(16). 

9(5) VALUE 16. 
X VALUE “Y", 
9(5) VALUE 0. 
9(5) VALUE 0. 
9(5) VALUE 0. 

X% VALUE *°-*, 

X¥ (8). 

PIC X(16). 
COMP-1 VALUE 1. 
PIC X(16). 
COMP-1 VALUE 1. 
COMP-1 VALUE 16. 


Figure C~l1. Sample COBOL Program 


0818 


PAGE 0001 


TO-TTYO 


01 RETURNS. 
02 RETURN-A,. 


03 SESSION-ABORT PIC X, 
03 STOP-RCVD PIC xX, 
03 INTRPT-RCVD PIC X, 
03 SERV~REQ-CANCLED PIC X, 
03 SERV-REQ-COMP PIC %, 
03 COBOL-ERROR PIC X. 
02 RETURN-B PIC 9(4) VALUE 0. 
77 INTERRUPT-TYPE PIC 99 VALUE 00. 
01 TIMEOUT. 
02 DATE]. 
03 ¥Y PIC 99, 
03 MM PIC 99, 
03 DD PIC 99, 
02 TIMEl, 
03 HH PIC 99, 
03 MN PIC 99, 
03 sSSSs PIC 9(4). 
77 RCVD-SENSE PIC X(8). 
77 NORMAL~TERMINATE PIC X VALUE "N", 
01 OUTPUT-CONTROL-WORD. 
02 REPLY-REQUESTED-CD PIC X. 
02 DEFINITE-RESP-REQ PIC X. 
02 LAST-~MSG-RCVD-EB PIC X. 
02 FMH-IN-RCVD-DATA PIC X. 
02 BEGIN-MSG-RCVD-BC PIC X. 
02 END-MSG-RCVD-EC PIC X. 
PROCEDURE DIVISION. 
INITIALIZE. 


CALL "CSINIT*® USING SNA-WORK-AREA NODE-NAME REMOTE-LU-NAME 
STD-NAME SYNC~NAME NO-RESTART SESSTION-ID 
MSG- RSYNC-SEND-SON HSG-RSYNC-RCV-SOQN ; 
RETURNS INTERRUPT-TYPE TIMEOUT RCVD-SENSE, 

DISPLAY RETURNS. 

DISPLAY "THIS IS CSINIT RTN-B = * RETURN-B. 

IF SERV-REQ-COMP = "¥" GO TO SENDIT ELSE GO TO ERR, 

SENDIT. 

MOVE SEND-BUFFER TO FROM-FIELD,. 

CALL "CSACEB* USING SNA~WORK-AREA FROM-FIELD 
FROM-LEFT-MOST- POSITION TO-FIELD 
TO-LEFT-MOST- POSITION CONVERSION-LENGTH. 

MOVE TO-FIELD TO SEND-BUFFER. 

CALL "CSSEND®* USING SNA-WORK-AREA SEND-BUFFER 
SEND-BUFFER-SIZE SYNC-NAME REPLY-NAME MSG-COMPLETE. 

DISPLAY RETURNS, 

DISPLAY "THIS IS CSSEND RTN-B = * RETURN-B. 

RCV, 

MOVE SPACES TO TO-FIELD. 

MOVE 12 TO CONVERSION-LENGTH. 

CALL "CSRECV" USING SNA-WORK-AREA RECEIVE-BUFFER 
RECEIVE-BUFFER-SIZE SYNC-NAME MSG 
RECEIVED-DATA-LENGTH OUTPUT-~CONTROL-WORD, 


Figure C-l (cont). Sample COBOL Program 


TO-TTYS 


99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


MOVE RECEIVE-BUFFER TO FROM-FIELD. 

CALL “CSEBAC*® USING SNA-WORK-AREA FROM~-FIELD 
FROM-LEFT-MOST- POSITION TO-FIELD 
TO-LEFT-MOST- POSITION CONVERSION-LENGTH, 

MOVE TO-FIELD TO RECEIVE-BUFFER. 

DISPLAY RECEIVE-BUFFER. 

DISPLAY RETURNS, 

DISPLAY "THIS IS CSRECV RTN-B = *® RETURN~B. 

ERR. 
CALL "CSTERM* USING SNA-WORK-AREA NORMAL-TERMINATE, 
STOP RUN. 


-> NO FATAL ERRORS; NO WARNINGS 


Figure C-l1 (cont). Sample COBOL Program 


Appendix D 
SESSION CALL RETURN 
CODES 


The following pages show the unique return codes that are 
returned by AIF after the execution of each call or verb. AS 
described in the Assembly language sections, bits 0 through 4 of 
the return code have special meaning. The tables in this section 
present the return codes both after these bits have been masked 


out. 


The following tables are included in this appendix: 


Table D-l. 
Table D-2. 
Table D-3. 
Table D-4. 
Table D-5. 
Table D-6. 


Table D=-7 ® 


AIF Session Call Return Codes 
Individual Return Codes 

sense Data 

COBOL RETURNS fields 

General COBOL RETURN-B codes 
Interrupt Types 

Attribute Types 
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Table D-l. AIF Session Call Return Codes 


RCABRT {| SESSION ABORTED, CHECK SC ABT FIELD FOR 
REASON a 
RCSTOP | SOPR COMMAND RECEIVED 
RCRINT | INTERRUPT RECEIVED 
RCSCNL | SERVICE REQUEST NOT PROCESSED OR 
| CANCELLED 
RCSCMF | SERVICE REQUEST COMPLETED 
RCMASK | MASK FOR INDIVIDUAL RETURN CODES (SEE 
| TABLE D=2) 


*Return codes marked with an asterisk can be received 
after any session call. 
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0000 
0001 
0002 
0003 


0004 
0005 
0016 


0018 
0019 
0020 
0021 
0023 
0025 
0032 


*0048 
*0049 
0050 


—60064 
*0065 


*0 066 
*0067 


0068 
0069 


0070 


0150 
0151 
0152 
0153 
0154 
0155 


*0 256 
SO257 


*0258 
*Q0259 


Tabl e D=-2 e 


COBOL Assembly 
RETU RN-B| Language 


0000 
0001 
0002 
0003 


| 0004 


0005 
0010 


0012 
0013 
0014 
0015 
0017 
0019 
0020 


0030 
0031 
0032 


0040 
0041 


0042 
0043 


0044 
0045 


0046 


0096 
0097 
0098 
0099 
COOSA 
O09B 


0100 
0101 


0102 
0103 


| RMDRNR 


| RMIMCS 


| RMPGER 


| RMNOER 
| RMPTSN 


| RMRNEG 


| RMNBIF 
RMLUAT 
| RMIMPS 


| RMIRHI 
| RMRB2 S 
RMIINT 
| RMI COD 
| RMNOUT 
| RMACTO 
| RMRSRF 


| RMSYSE 
| RMRNAV 
| RMDTCL 


| RMINOD 
| RMINVS 


| RMASYN 


| RMIVSR 


| RMLNER 
| RMIVFC 


| RMNNAC 
| RMNLAC 
| RMNOAV 
| RMISTD 
| RMILUT 
| RMNOAT 


| RMU NB I 


| RMSSHU 
| RMURTO 


Individual Return Codes 


[Macro | | | 
|Label | Meaning : 


| NO ERROR 


PERMISSION TO SEND 


| DATA RECEIVED BUT NO READ 

| NEGATIVE RESPONSE RECEIVED FROM 
| HOST 

| BIND NEGOTIATION FAILED 


LU ATTACHED BY REMOTE 
IMPROPER STATE 


INVALID INPUT CONTROL INDICATORS 


| RECEIVE BUFFER TOO SMALL 


INVALID INTERRUPT TYPE 


| INVALID STATUS VALUE OR USER CODE 
| NO OUTSTANDING ASYNCHRONOUS ORDER 
| ACCEPT TIMED OUT 

| RESTART NOT POSSIBLE 


| SYSTEM ERROR 
| RESOURCE NOT AVAILABLE 
| SEND/RECEIVE REJECT, DATA TRAFFIC 


INACTIVE/ RESET 
INVALID NODE NAME 
INVALID SESSION ID 


ASYNCHRONOUS SE 
OUTSTANDING | 
INVALID SERVICE REQUEST (OPERATION | 
CODE) : 


RVICE REQUEST 


| DATA LENGTH ERROR ON SEND 
| INVALID FUNCTION CODE ON 


SSWANY/CSWANY 


| IMPROPER CALLING SEQUENCE 


| NODE NOT YET ACTIVE | 
| NO ACTIVE LU FOR SESSION 


NO LU AVAILABLE FOR SESSION 
INVALID STD NAME 
INVALID LU TYPE IN STD 


| NO LU ATTACHED FOR SSACPT 


| SESSION UNBOUND BY HOST 
| UNEXPECTEDLY 


SESSION SHUTDOWN BY HOST ORDERLY 


| YOU ARE TIMED OUT BY SOPR COMMAND 


SESSION ABORT DUE TO UNRECOVERABLE | 


| PROGRAM ERROR | 
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Table D-2 (cont). Individual Return Codes 


COBOL | Assembly | Macro 
RETURN-B | Language | Label Meaning 


| ACTLU/DACTLU RECEIVED 
| LINK FAILURE 
ACTPU/DACTPU RECEIVED 
| $A (SOPR) ‘ABORT! AIF NODE 
| $8 ABORT AIF GROUP 


eeacurs pee marked with an aaeariek can be received sete: 
and session call. 
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Table D-4. COBOL Session Call RETURNS fields. 


SESSION-ABORT | | LU-LU session or node has been 
| | aborted 


STOP=RCVD . | SOPR STOP command received. 


INTRPT-RCVD , | Interrupt received. See INTERRUPT 
| ; Output parameter 


SERV-REQ-CANCLD | This request has been cancelled. 
| |The application must issue it again 
| 1i£ necessary. 


SERV- REQ~ COMPLETE | |'This request has been completed. 


COBOL-INT-ERROR | | Error in using COBOL interface to 
| |the AIF. See RETURN-B for return 
| code. 


Table D-5. General COBOL RETURN-B Values 


| Parameter must be 1 byte long 
| Parameter must be 5 bytes long 
| Default not acceptable 


| Node name error 

| Remote LU name error 

| Not session-ID 

| Unknown interrupt type 
| Nondecimal digit 

| Nonhexadecimal digit 

| Error in conversion 
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Table D-6. 


COBOL | Hex | | 
Value | Value | Label Comment : 
0001 |BINDIM Bind image attribute 


/ Comment 


Interrupt-Type Correspondence 


COBOL | Hex | 
| Value Value | Label 


| Shutdown 


| SHUTD 
| SHUTC | Shutdown complete 
| RSHUTD | Request shutdown 
| SIGNAL | Signal 
| QEC | Quiesce at end of chain 
QCOMPL | Quiesce complete 
RELQ | Release quiesce 
SBI | Stop bracket initialization 
BIS | Bracket initiation stopped 
CANCEL | Cancel 
CHASE | Chase 
BID | Bid 
| LUSTAT ; LU status 
| RTR | Ready to receive 
| CLEAR | Data traffic cleared/reset by host 
| ENAPRS | Enable restart for DPS 6 application | 
| DSAPRS | Disable restart for DPS 6 
| application. — 
RORCVR | DPS 6 application request for 
: | receive 
ALERT |; Alert 
STAT Statistics 
Table D-7. Attribute Types 
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Appendix E 
SSSCCB TEMPLATE 


This appendix contains the template for SSSCCB, the Session 
Call Control Block (SCCB). This template is used in creating an 
SCCB for your LU Type 0 application. 
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Table E-1. SSSCCB Template. 


Offset Me ani ng 


| SESSION ID . 
SESSION GROUP NAME 
| SESSION NAME 
| (FOR AIF USE ONLY) ; 
| OPERATION CODE SC_OPC IS NORMALLY LOADED | 
| BY AN AIF MACROCALL 
| RESERVED FOR FUTURE USE (1) 
STD 
| REMOTE LU NAME IN ASCII 
SNAPI NODE NAME IN ASCII 
| TRANSACTION PROGRAM NAME IN ASCII 
SC OUTPUT PARAMETER AREA 
| SC OUTPUT CONTROL WORD 
| FOR AIF USE ONLY 
| ACTUAL DATA LENGTH RECEIVED 
RECEIVED INTERRUPT TYPE 
| SEQUENCE NUMBER OF LAST SENT RU 
SEQUENCE NUMBER OF LAST RECEIVED RU 
ERROR CODE OR SENSE DATA RECEIVED 
MAXIMUM RU SIZE 
| RETURN CODE OF SESSION CALL 
SESSION ABORT REASON WHEN RCABRT SET IN 
SC RCD — REFER TO MACRO SSAIRC FOR 
DEFINITION 
TIME OF SESSION TERMINATION WHEN RCSTOP 
SET IN SC_RCD OR TIME TO RELEASE 
ABNORMALLY TERMINATED SESSION 
| RESERVED FOR FUTURE USE (2) 
SIZE OF SCCB OUTPUT AREA 
SESSION CALL INPUT PARAMETER AREA 
SESSION CALL INPUT CONTROL WORD 
-> SEND/RCV DATA BUFFER 
SEND/RECIEVE DATA BUFFER LENGTH 
SENSE DATA FOR SENDING INTERRUPT, -—RSP 
OR ABNORMAL TERMINATION 
SEND SQN FOR MESSAGE RESYNCHRONIZATION 
RCV SON FOR MESSAGE RESYNCHRONIZATION 
SEND INTERRUPT TYPE 
RESERVED FOR FUTURE USE (3) 
| SIZE OF SCCB INPUT AREA 
SAVE REGISTER SPACE 
| SCCB SIZE 
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Table E-l (cont.). 


| offset | abel | weaning 


OPERATION CODE (SC_OPC) 


ASCINI | 
ASCTER 

ASCSND | 
ASCRCV | 
ASCSIN | 
ASCRIN 
ASCASR 
ASCWAN | 
ASCTST ! 


SCRINS | 


SCREBI | 
SCRMSG | 


SCRSTR | 


SCSWRP | 


SCACPT | 


SCGTAT | 
SCPOLL | 


SCATRM | 


scrwRP | 
SCRROD | 
SCRLST | 


SCRFMH | 
SCRBOM | 
SCREOM | 


SESSION CALL OUTEUT 


END OF MESSAGE RECEIVED (EC IN RH) | 


SSSCCB Template 


SSINIT 
SSTERM 
SSSEND 
SSRECV 
SSSI 

SSRI 

SSCASR 
SSWANY 
SSTEST 


ieecidsteees CALL INPUT fea ace WORD (SC_ cr) 


RETURN CONTROL WHEN SESSION CALL 
COMPLETED (SYNC. ) 

DATA START AT RIGHT BYTE OF BUFFER 

USED FOR SSRECV TO WAIT FOR WHOLE 
MESSAGE 

RESTART, USED ONLY 


FOR SSINTT dedleckcay 


SEND WITH REPLY (SET CD IN RH) 

ND WITH DEFINITE RESP REQUIRED 
LAST MESSAGE (SET EB IN RH) 
WITH FME IN DATA RU 
+RSP 

ND -RSP 

MESSAGE (CHAIN) NOT COMPLETE 


L=ACCEPT, SSACPT WITH SC OPC 
THIS BIT SHOULD BE 0 IF S$SIN 
l=GET ATTRIBUTE, 0=RECEIVE D 
1l=POLL, SSPOLL WITH SC OPC 
THIS BIT SHOULD BE 0 IF S$SIN 
ABNORMAL TERMINATION | 


CONTROL WORD (SC_ oct) 


REPLY REQUESTED (CD RECEIVED IN RH) 
DEFINITE RESPONSE REQUESTED 

LAST MESSAGE RECEIVED (EB RECEIVED IN 
RH) 

FMH IN RECEIVED DATA | 
BEGINNING OF MESSAGE RECEIVED (BC IN R&) | 
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Table E-1 (cont.). $SSCCB Template. 


| Offset wabel | Meaning 


BITS USED FOR SESSION RESTART 


scrsts | STATION RECEIVED FOR MSG_ RESYNC, SET SQN | 
| TO SC_SQN, SC_RSQ | 

SCL6RX | DPS 6 APPLICATION RETRANSMIT REQUIRED 

SCHORX | HOST APPLICATION RETRANSMIT REQUIRED, 


| READY TO RECEIVE 
INTERRUPT TYPE 


THERE ARE 3 CATEGORIES OF INTERRUPT: 


1. EXPEDITED OR NORMAL FLOW DFC COMMAND 
2. CNM DATA 
3. INFORMATION PASSED TO OR FROM APPLICATION PROG RAM 


INTCAT 
APPINF 
EXPDFC | 
IN TB UF 
INTCOD 


CATEGORY 
APPLICATION INFORMATION 
EXPEDITED DFC COMMAND 
INTERRUPT WITH BUFFER FOR DATA 
INTERRUPT TYPE CODE 


COMMANDS 


SHUTDOWN 
SHUTDOWN COMPLETE 

REQUEST SHUTDOWN 

SIGNAL 

QUIESCE AT END OF CHAIN 
QUIESCE COMPLETE 

RELEASE QUIESCE 

STOP BRACKET INITIALIZATION 
BRACKET INITIALIZATION STOPPED 
CANCEL 

CHASE 

BID 

LU STATUS | 
READY TO RECEIVE 


DATA TRAFFIC CLEARED/RESET BY HOST 
ENABLE RESTART FOR DPS 6 APPLICATION 
DISABLE RESTART FOR DPS 6 APPLICATION 
DPS 6 APPLICATION REQUEST FOR RECOVERY 


CLEAR 
ENAPRS 
DSAPRS 
RORCVR 


E-4 GR11-01 


Table E-l (cont.). SSSCCB Template. 


CNM DATA 


ALERT 


STATIC 


GET ATTRIBUTE TYPE 


ALERT 
STATISTICS OF REQMS (TYPE 4) SC ESD=0; 


| NO PARAMETER IN REQMS TO PASS TO 
SD0001 | 


APPLICATION 
SC_ESD=1: REQMS RECEIVED IN RECEIVE 
BUFFER TO PASS PARAMETER 


SC_ESD=2: PARAMETER IN REOMS NEEDS TO BE 
PASSED 


| BIND IMAGE STARTING FROM BYTEL 
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Appendix F 


CONVERSATION VERB 
RETURN CODES 


The following pages show the unique return codes that are 
returned by AIF after the execution of each call or verb. As 
described in the Assembly language sections, bits 0 through 4 of 
the return code have special meaning. The tables in these 
section present the return codes both before and after these bits 
have been masked out. 


The following tables are included in this appendix: 


Table F-1. Conversation Verb General Return Codes 
Table F-2. Individual Return Codes 

Table F-3. Sense Data 

Table F-4,. COBOL RETURN-A fields 


Table F-5. General COBOL RETURN-B codes 
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Table F-l. Individual Return Codes 


Meaning 


CONVERSATION ABEND/DEALLOCATED 
SOPR STOP COMMAND RECEIVED; 
CHECK VP_TIM FOR TIME 
RESERVED WHEN USING VERB 
SERV. REQ. NOT PROCESSED OR CANCELLED 
SERVICE REQUEST COMPLETED | 
MASK FOR INDIVIDUAL RETURN CODES (SEE 
TABLE F-2) 


VRABND 
VRSTOP 


| VRRINT 
VRSCNL 
VRSCMP 
| VRMASK 


*Return codes noted by an asterisk can be received after the 
execution of any verb. 
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Table Fo —2. Individual Return Codes 


: RETURN-B _ ensues: VRLNER CONV. NOT IN SEND OR RECEIVE STATE 


Meaning 


: | Assembly | Macro 
| RETURN-B | Language Label 


| VRNCNF 


VRRB2S | 


| VRNSOR 


| VRNSRC 


| VRLRNE | 
| VRCSCD | 


| VRSYSE | 
| VRRNAV | 
| VRINOD | 
| VRIRID | 
| VRITPN | 

VRIVSR | 


VRVBNS 


| VRSRMU | 
| VRSLNS | 


| VRIVLL 


| VRIRTC | 
| VRITYP | 


CONV. 


| | STATE 
| VRNRCV | 


| VROKAY | O.K. (NO ERROR) 

| VRUNSU | UNSUCCESSFUL 

| VRPENT | PROG_ERROR NO TRUNC 

| VRPETR | PROG_ERROR_TRUNC 
VRSEPR | PROG_ERROR PURGING 
VRSENT | SVC_ERROR NO TRUNC 
VRSETR | SVC_ERROR_TRUNC 

| VRSEPR | SVC_ERROR PURGING 

| VRIHLN | INVALID HOST LU NAME 

| VRHLNA | HOST LU NOT AVAILABLE 
VRNSND | CONV. NOT IN SEND STATE 

| VRNSDF | CONV. NOT IN SEND OR DEFER STATE 


NOT IN CONFIRM STATE 
RECEIVE BUFFER TOO SMALL 


| | CONV. NOT IN SEND OR RECEIVE STATE 
| VRNSCS | 


CONV. NOT IN RECEIVE OR CONFIRM 


CONV. NOT IN RECEIVE STATE 
CONV. 


NOT IN SEND, RECEIVE OR 


| CONFIRM STATE 


LOGICAL RECORD NOT FINISHED YET 
CONV. IN CONFIRM SEND OR CONFIRM 


: | DEALLOCATE RECEIVED 
| VRPDEA | 


CONV. IN PEND DEALLOCATE STATE 
SYSTEM ERROR 

RESOURCE NOT AVAILABLE 

INVALID NODE NAME 

INVALID RESOURCE ID 

INVALID TPN (LENGTH OF TPN = 0) 
INVALID SERVICE REQ. (OPERATION 


| | CODE) 
| VRLNER | 

| VRIVEC | 
| VRIMCS | 


DATA LENGTH ERROR ON SEND DATA 
INVALID FUNCTION CODE ON MCL 2319 
IMPROPER CALLING SEQUENCE 

VERB _NOT SUPPORTED | 

ASR (VERB/SC) USAGE MIXED 

SYNC, LEVEL NOT SUPPORTED BY LU 
INVALID LOGICAL RECORD LENGTH 
INVALID RETURN CONTROL FOR ALLOCATE | 
INVALID TYPE SPECIFIED | 
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‘Table r= 2 eons 


Assembly | 


Macro 


3 | RETURN-B | Language | Label 


| VRNNAC 
| VRNLAC 


VRNOAV 


| VRISTD 


VRILUT 


| VRNOAT 


| VRAETN 
| VRAEPI 


VRAEIP 


| VRAESI 
| VRAECM 


VRAESP 


| VRAERP 


| VRAENR 
| VRAETR 
| VRAEAN 


| VRDANM 
| VRDAPG 

| VRDASV 
| VRDATM 


VRUNBI 


VRSSHU 


| VRURTO 


VRPGER 


VRADLU 
VRLKFL 
VRADPU 


| VRACSA 
VRSABT 


*Return codes noted by an 
execution of any verb. 


asterisk can be received after 


Individual Return Codes 


Meaning 


| NODE NOT YET ACTIVE 


NO ACTIVE LU FOR SESSION 


| NO LU AVAILABLE FOR SESSION 


INVALID STD NAME 


| INVALID LU TYPE IN STD 
-NO LU ATTATCHED BY REMOTE TP 


| TPN NOT RECONIZED 


1g a NOT ALLOWED 
PIP_ NOT SPECIFIED CORRECTLY 
SECURITY _ NOT | VALID 


CONVERSATION TYPE MISMATCH 


SYNC. _LEVEL_NOT_ SUPPORTED BY 


| PROGRAM 

| RECONNECT LEVEL NOT SUPPORTED BY 
| PROGRAM - 

| TRANS PRG NOT AVAILABLE NO RETRY 
| TRANS PRG NOT AVAILABLE RETRY 

| ACC_NOT VALID 


| DEALLOCATE_NORMAL 
| DEALLOCATE ABEND PROGRAM 


DEALLOCATE ABEND SERVICE 
DEALLOCATE ABEND TIMER 


SESSION UNBOUND BY HOST 
UNEXPECTEDLY 

SESSION SHUTDOWN BY HOST ORDERLY 
YOU ARE TIMED OUT BY SOPR COMMAND 
SESSION ABORT 
PROTOCOL ERROR 
ACTLU/DACTLU RECEIVED 

LINK FAILURE 

ACTPU/DACTPU RECEIVED 

SA (SOPR) 'ABORT' AIF NODE 


| $S ABORT AIF GROUP 


DUE TO UNRECOVERABLE 


the 
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Table F-3 contains AIF specific sense data that is associated 
with certain AIF return codes. For sense codes not listed, refer 
to sense codes listed in the SNA Reference Summary or in the SNA 


Operator's Guide. 


Table F-3. Sense Data 


Meaning 


VRRNAV 1VR74Cl | INVALID CALLER 
| VR74C2 | NO ASRBS AVAILABLE ON NODE 
VR74C6 | EXCEEDED MAX. NO. OF SESSION GROUPS 
|VR74C9 | TIME OUT PASSING A REQUEST TO PU 


VRIRID |74C0 |VR74CO |ASRB NOT FOUND 
: VR74C7 |CAN'T FIND A VALID SESSION GROUP 


VRIMCS | 7 'VR74CB |CAN'T PROCESS THIS CALL AT THIS TIME 
| VR74D3 |CALL WHEN NOT IN SESSION ERROR 
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Table F-4. COBOL Session Call RETURNS fields. 


Fields 


Meaning © 


ABEND=DEALLOCATE | The conversation has ABENDed and 
therefore been deallocated 


STOP-RCVD | y | SOPR STOP command received. 
SERV~REQ~CANC | ) | This request has been cancelled. | 
| The application must issue it again | 
| if necessary. : 
SERV-REQ-COMP This request has been completed. 
COBOL~ERROR | Error in using COBOL interface to 


the AIF. See RETURN-B for return 
| code, _ 


Table F-5. General COBOL RETURN-B Values 
a 


Unrecognized parameter 
Parameter must be 1 byte long 
Parameter must be 5 bytes long 
Default not acceptable 
| Node name error — 
|; Remote LU name error 
| Not session-ID 
| Unknown interrupt type 
Nondecimal digit 
Nonhexadecimal digit 
Error in conversion 
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Appendix G 
SSVPB TEMPLATE 


Table G-l contains the template for SSVPB, the Verb Parameter 
Block (VPB). This template is used in creating a VPB for your LU 
Type 6.2 application. 
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VPOUPT 
VP OCT 


VPINPS 
VP_REG 
VP_SIZ 
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SSVPB Template 
Meaning 


SESSION ID 

SESSION GROUP NAME 
SESSION NAME 

(FOR AIF USE ONLY) 


| OPERATION CODE 
| RESERVED FOR FUTURE USE 1 


| SYNC ® 


LEVEL USED BY CONVERSATION 
0 = NONE, 1 = CONFIRM 


| STD NAME IN ASCII 


REMOTE LU NAME IN ASCII 

AIF NODE NAME IN ASCII 

LENGTH OF TRANSACTION PROG NAME 
DO NOT TRANSLATE TP NAME WHEN SET 


| TP NAME (MAX, 14 BYTES) 


| VERB OUTPUT PARAMETER AREA 


VERB OUTPUT CONTROL WORD 
(FOR AIF USE ONLY) 
ACTUAL DATA LENGTH RECEIVED 
WHAT RECEIVED 

CONVERSATION STATE 

RFU 


ERROR CODE OR SENSE DATA FOR SOME RETURN 


CODES. REFER TO MACRO SSAIVR. 


RETURN CODE OF VERB CALL 


CONVERSATION ABEND REASON WHEN VRBAND SET 


IN VP_RCD; REFER TO $SAIVR 


TIME OF SESSION TERMINATION WHEN VRSTOP 


USED BY DEALLOCATE, PREPARE TO RECEIVE, 


SET IN VP_RCD, 
STOP COMMAND WAS RECEIVED 
RFU 2 | 

SIZE OF VPB OUTPUT ARE 

VERB INPUT PARAMETER AREA 
VERB INPUT CONTROL WORD 

-> SEND/RCV/LOG DATA BUFFER 
SEND/RCV DATA LENGTH 


SEND_ERROR VERBS TO SPECIFY TYPE 
SEND CONTROL INFOMATION TYPE 


| RFU 3 


SIZE OF VPB INPUT AREA 
SAVE REG. SPACE 


VPB SIZE 


G-2 


INDICATING THAT THE SOPR 


AND | 
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Table G-l ® 


| Offset | Label | Meaning | 
| OPERATION CODE — | 


SSVPB Template 


| VBALLO 
VBCVDA 


| VBSNDA 
| VBRANW 


| VBSCTL 


CALL INPUT 


| VBRTNS 
| VBRHBI 
| VBFILL 


VBRSTR 
| VBSWRP 
| VBSLST 
| VBLGDA 
| VBSRSP 
| VBSNEG 


VBATCH 
VBLOCK 


VBRCTL 


J VBFLSH 
| VBCONF 


| VBCNFD 


VBRTOS 
VBSERR 
VBPTOR 
| VBPONR 
| VBDEAL 
VBCTLM 


| USED BY $SFLSH, $SCONF, $SCNFD, 


| 1=SYNC. 
| DATA START AT RT. 
| PILL FOR $SRAW AND $SPONR VERB 


| SEND LAS 


| WHEN AL 


oa PLUSH SEND BUFFER, 
| CONFIRM, 
| CONFIRMED, 


| DEALLOCATE, 


SSALLO, ALLOCATE | 


USED BY AIF ONLY 


SSSDTA, 7 
SSRAW, RECEIVE_AND WAIT 


SEND DATA 


SSSERR, 


SSDEAL, SSPONR, S$SPTOR, SSRTOS, WITH TYPE 


| SET IN VP_CTL 


ee WORD (VP_ ICT) 


(VERB ALWAYS SYNC.) 
BYTE OF BUFF. 


PROC. 


0 = BUFFER, 1 = LL 


| RESERVED WHEN USING VERB (0 ALWAYS) 


SEND WITH REPLY (SET CD IN RH) 

T MSG (SET EB IN RH) 

OG_ DATA PRESENT (USED BY SEND ERROR 
OR DEALLOCATE ABEND) 


| RESERVED WHEN USING VERB (0 ALWAYS) 


RESERVED WHEN USING VERB (0 ALWAYS) 
ATTATCHED, SSATCH W/ VP OPC = VBALLO 


| LOCK FOR PREPARE TO RECEIVE VERB 


(SSPTOR): 0 = SHORT, 1 = LONG 
RETURN CNT'L (USED BY ALLOCATE ONLY) 
LOCATED 


IMMEDIATE 


| RESERVED WHEN USING VERB (0 ALWAYS) 


“$SFLSH 
$SCONF 

SSCNFD 
REQUEST_TO SEND, $SRTOS 
SEND ERROR, $SSERR 
PREPARE TO RECEIVE, 
POST ON RECEIPT, 


SSPTOR 

SSPONR 

SSDEAL 

MAX VALUE OF CONTROL INFORMATION TYPE 
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Table G-l. SSVPB Template 


VERB OUTPUT CONTROL WORD 


0080 VBRRTS 
0040 ieecetoses 


r WHAT-RECEIVED INDICATORS 


| Meaning 


| REQUEST TO SEND RECEIVED WHEN SET 3 
| CONV. POSTED (USED BY POST _ON_RECEIPT ONLY) | 


VBRSND SEND INDICATOR RCV'D 
| VBRCNF CONFIRM REQ. RCV'D 
VBRCDA CONFIRM DEALLOCATE RCV'D 
VBRCSN CONFIRM SEND RCV'D 
| VBRLLT LL TRUNCATED 
VBRDATO DATA AVAILABLE WHEN LENGTH=0 
| VBRDAT DATA RECEIVED 
| VBRDCP DATA_COMPLETE 
| VBRDIC DATA_INCOMPLETE 


VBTPFL | FLUSH 

VBTPSL | SYNC_LEVEL 
VBTPAP | ABEND PROGRAM 
VBTPAS | ABEND SERVICE 
VBTPAT | ABEND TIMER 
VBTPPG | PROGRAM 
VBTPSV | SERVICE 


| vscrst | RESET 

| VBCSND | SEND STATE 
VBCRCV | RECEIVE STATE 
VBCCNF | RCV'D CONFIRM 
VBCCSN | RCV'D CONFIRM SEND 
VBCCDA | RCV'D CONFIRM DEALLOCATE 
VBCDPR | DEFER STATE--PREPARE TO RECEIVE 
VBCDDA | DEFER STATE--DEALLOCATE 
VBCPDA | PEND DEALLOCATE 
VBCSPT | SYNC. POINT 
VBCBOT | BACKED OUT STATE 
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GLOSSARY 


basic information unit (BIU) 


The unit of data and control information that is passed 
between half-sessions, It consists of a request/response 
header (RH) followed by a request/response unit (RU). 


class of service 


A designation of the path control network characteristics, 
such as path security, transmission priority, and bandwidth, 
that apply to a particular session. The end user designates 
class of service at session initiation by using a symbolic 
name that is mapped into a list of virtual routes, any one of 
which can be selected for the session to provide the 
requested level oF service. 


configuration services 


One of the types of network services in the system services 
control point (SSCP) and in the physical unit (PU); 
configuration services activate, deactivate, and maintain the 
status of physical units, links, and link stations. 


contention state 


The state in which neither half-session is transmitting data 
Or in which both half—-sessions are transmitting data 
Simultaneously. The contention winner can be configured to 
be non-negotiable, in which case the specified primary or 
secondary LU would always be the winner when a contention 
state occurred. 
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data flow control (DFC) 


A request/response unit (RU) category used for requests and 
responses exchanged between the data flow control layer in 
the session partner. 


end user 


The ultimate source or destination of application dataflowing 
through an SNA network. An end user may be an application 
program or a terminal operator. 


function management (fm) header 


One or more headers, optionally present in the leading 
request units (RUs) of an RU chain, that is provides 
information to: (1) select a destination at the session 
partner, (2) control the way that end-user data is handled at 
the destination, (3) change the characteristics of the data 
during the session, and (4) transmit status or user 
information about the destination (for example, a program or 
device). 


hal f-session 


A component that provides FMD services, data flow control, 
and transmission control for one of the sessions of a network 
addressable unit (NAU). 


host node 


A subarea node that contains a system services control point 
(SSCP); for example, a system/370 computer with OS/VS2 and 
ACF/TCAM. 


interrupt type 


The type of flag which is sent by either the host or the DPS 
6 during the session. These flage can be SNA commands or 
indicators or SPI control information, 


link 


The combination of the link connection and the link stations 
joining network nodes; for example, (1) a system/370 channel 
and its associated protocols, (2) a serial-by-bit connection 
under the control of synchronous data link control (SDLC). 


link connections 


The physical equipment providing two-way communication 
between one link station and one or more other link stations; 
for example, a communication line and data circuit 
terminating equipment (DCE). 
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link station 


The combination of hardware and software that allows a node 
to attach to and provide control for a link. 


logical unit (LU) 


A port through which an end user accesses the SNA network the 
functions provided by system services control points 

(SSCPs). An LU is capable of supporting at least two 
sessions--one with an SSCP and one with another logical 
unit--and may be capable of supporting many sessions with 
other logical units. 


LU-LU session 


A session between two logical units in an SNA network. It 
provides communication between two end users or between an 
end user and an LU services component. 


network addressable unit (NAU) 


A logical unit, a physical unit, or a system services control 
point. It is the origin or the destination of information 
transmitted by the path control network. 


node 


An endpoint of a link or a junction common to two or more 
links in a network. Nodes can be distributed or host 
processors, communication controllers, cluster controllers, 
Or terminals. Nodes can vary in routing and other functional 
capbilities. 


pacing 
A technique by which a receiving component controls the rate 
of transmission of a sending component to prevent overrun or 
congestion. 

parallel sessions 
Two or more currently active sessions between the same two 
logical units (LU's) using different pairs of network 
addresses. Each session can have independent session 
parameters. 

physical unit (PU) 
The component that manages and monitors the resources of a 


node, as requested by an SSCP via an SSCP-PU session. Each 
node of an SNA network contains a physical unit. 
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protocol 
The meaning of, and the sequencing rules for, requests and 
responses used for managing the network, transferring data, 
and synchronizing the states of network components. 

request header (RH) 
A request unit (ru) header preceding a request unit. 


request unit (RD) 


A message unit that contains control information such as a 
request code of FM header, end-user data, or both. 


request/response header (RH) 


Control information, preceding a request/response unit (RU), 
that specifies the type of RU (request unit or response unit) 
and contains control in formation associated with that RU. 


request/response unit (RU) 
A generic term for a request unit or a response unit, 
response 


(1) A message unit that acknowledges receipt of request; a 
response consists of a response header (RH), a response unit 
(RU), or both. (2) in SDLC, the control information sent 
from the secondardy station to the primary station. 


response header (RH) 


A header, optionally followed by a response unit (RU), that 
indicates whether the response is positive or negative and 
that may contain a pacing response. | 


response unit (RU) 


A message unit that acknowledges a request unit; it may 
contain prefix information received in a request unit. If 
positive, the response unit may contain additional 
information (such as session parameters in response to bind 
session), or if negative, contains sense data defining the 
exception condition. 
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session 


A logical connection between two network addressable units 
(NAUS) that can be activated, tailored to provide various 
protocols, and deactivated, as requested. The session 
activation request and response can determine options 
relating to such things as the rate and concurrency of data 
exchange, the control of contention and error recovery, and 
the characteristics of the data stream. Sessions compete for 
network resources such as the links within the path control 
network. 


session partner 


SNA 


SNA 


One of the two network addressable units having an active 
session. 


network 


The part of a user-application network that conforms to the 
formats and protocols of Systems Network Architecture, It 
enables reliable transfer of data among end users and 
provides protocols for controlling the resources of various 
network configurations. The SNA network consists of network 
addressable units, boundary function components, and the path 
control network. 


node 


A node that supports SNA protocols . 


SSCP-PU session 


A session between a system services control point (SSCP) and 
a physical unit (PU). SSCP-PU sessions allow SSCP's to send 
requests to and receive status information from individual 
nodes in order to control network configuration. 


SSCP-SSCP session 


A session between the system services control point (SSCP) in 
One domain and the SSCP in another domain. An SSCP-SSCP 
session is used to initiate and terminate cross-domain LU-LU 
sessions. 


Synchronous Data Link Control (SDLC) 


A discipline for managing synchronous, code-transparent, 
serial-by-bit information transfer over a link connection. 
transmission exchanges may be duplex or half duplex over 
switched or nonswitched links. The configuration of the link 
connection may be point-to-point, multipoint, or loop. 
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System Services Control Point (SSCP) 


A focal point withing an SNA network for managing the 
configuration, coordinating network operator and problem 
determination requests, and providing directory support and 
other session services for end users of the network. 
Multiple SSCPs cooperating as peers with one another, can 
divide the network into domains of control, with each SSCP 
having a hierarcical control relationship to the physical 
units and logical units within its own domain, 
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Appendix B 


SAMPLE ASSEMBLY 
LANGUAGE PROGRAMS 


This appendix provides source listings of assembly language 
programs. These programs demonstrate the use of AIF LU Type 0 
and LU Type 6.2 for both DPS 6- and Host-initiated sessions. 


Figure B-l is an AIF LU Type O sample program for a DPS 6- 
initiated session. Figure B-2 is an AIF LU Type 0 sample program 
for a Host-initiated session. Figure B-3 shows subroutines that 
can be linked by both program. 


Figure B-4 is an AIF LU Type 6.2 sample program for a DPS 6 
initiated session. Figure B-5 is an AIF LU Type 6.2 sample 
program for a Host initiated session. Figure B-6 are subroutines 
that can be linked by both programs. 
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XDEF 
XLOC 

SSSCCB 
SSAIRC 


* 

* 3 

ADLO TEXT 
BUF_SZ EQU 
RAN EQU 


AP_SCB EQU 
AP_SBF EQU 
AP_RBF EQU 


AP CWl EQU 

AP STK EQU 

AP SIZ EQU 

* 

* DEFINITON 


CW_RST EQU 


* 


LIBM '>>LDD>MACROS>MAC_USER' | 
, LIBM | 
LIBM 


OS LIB 


EXEC _LIB 


AP SCB,AP SBF 
GTMEM, PRTSCB 


A'ADLO' 

141 

2 

0 

AP _SCB+SC_SIZ 
AP _SBF+BUF_SZ 
AP_RBF+BUF_SZ 
AP_CW1+1 

AP _STK+100 


FOR CONTROL WORD 


Z'8000' 


TR Ol RESV 
* 
* 
* UPON ENTRY: 
* 
START RESV 0 
* 
* 
LDV SR6 ,0 
LDR SR7,=AP_ SIZ 
LDV SR5,0 
LNJ SB5 ,GTMEM 
BEZ $R1,SETREG 
* ERROR 
SETREG RESV 0 


* 


REMOTE APPLICATION NAME 
SIZE OF RECEIVE/SEND BUFFER 


TR _01,'10/22/85' SAMPLE #1 LUO DPS 6 INITIATED SESSION 


RAN = REMOTE APPLICATION NAME LENGTH 


VPB 

SEND BUFFER 

RECEIVE BUFFER 
APPLICATION CONTROL WORD 1 
STACK SPACE 

APPLICATION WORK SIZE 


(AP_CW1) 


RESTART ENABLED 


AMOUNT OF MEMORY TO GET 
SET MEMORY TO ZEROS 
GET MEMORY 


IF NO ERROR SET UP REGISTERS 


LAB $B7,$B4.AP SIZ $B7 TO TOP OF STACK 
LAB SB6 ,SB4 SB6 WORK SPACE POINTER 
* THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


* 


Figure B-l. 


Sample Assembly Language Program for LU Type 0 
for DPS 6-Initiated Session 
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KEKE KEKE KEE EERE RE KERR EERE REE EREREREKREKREREREREKEREREEKERERKEREKKEE 
ba INITIALIZE SESS ION = 
* , * 
KK KEKE ERE KEE KEK EERE RE RE RRR ERRERERE REE EER ERE RERER ERE RRR ERE EERE EREREKREREREKKEKE 


SSINIT — ,'SMPLAIF','AQ6CICS2','BB',SYNC,NO_ RESTART 
INIT RESV 0 

LB =$R1,=(RCSCNL+RCABRT) WAS SESSION ABORT OR REQUEST CANCEL? 

BBT TERM IF TRUE END 
* ELSE CONTINUE PROCESSING 
/ 
* 
KEKKEKEKEKEKKEEKEEEKKEKRKEKREKKEEKEKKREREKRKEKRERKKREREKEKRREKEKKEKREKRKERKEKKRERKKERKEKKKEKKRKKKKKEKKSE 
SEND ENABLE RESTART 
* TRY TO ENABLE RESTART FUNCTIONALITY FOR THIS SESSION. IF THIS SESSION IS * 
* NOT RESTARTABLE, AN ERROR MESSAGE WILL APPEAR AND PROCESSING WILL CONTINUE. * 
* IF THIS HAPPENS, AND YOU WOULD LIKE TO ENABLE RESTART, YOU WILL HAVE TO 
* UPDATE YOUR AIF CONFIGURATION FILE (AIF NODE). 
KRKEKEKEKEKEKRKEKEKEKEEREREREERKEEKEKEKRERKEEREEKREEKEEKEKEKKEKRKKREKKEKEKKEKKKKEKEKKEREKKEKKEKRERKESE 
* 

LBT SB6.AP CW1,=CW RST SET INDICATOR FOR RESTART 

SSSI 1+ 1=ENAPRS 
* 

LB =$R1,=RCABRT WAS IT ABAND OR ? 

BBT QUIT IF TRUE REPORT ERROR AND END 

LB =$R1,=RCSCNL ELSE WAS IT REQUEST CANCELED 

BBF OUTMSG IF FALSE REQUEST DATA FROM TERM 

SUSOUT !NRSTRT,=NRSL, L ELSE OUTPUT RESTART ERROR 

LBF SB6.AP_CW1,=CW_RST RESET RESTART INDICATOR 
AND CONTINUE PROCESSING 
yi 
* 
KREEKKKRKEKKEKRKEKEKKEEKRERKKKERREKKKEKKKEEKEEREEEKRREKREKEKKEKEEKEEKKEEKREEEEEKKEE KKK 
* * 
OUTPUT DATA T0 USER OUT 
* * 
* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE SESSION * 
KEKE REE KKEREKREKRKEKEKEKEREKRKKRKEERRKKEKKEKEKREKRKEKEEREREKEKEKREKKKKEKE 
* 
OUTMSG RESV 0 

SUSOUT !INPDAT,=INPL, L 
* 
/ 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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KRHRKEKKEKEEEEKEKEEKREKEKEEKEKRKEEEREKEKEEKEKKEKEKEKEREREKKEKEEKEERREEEEREKEEEEKKEREEE 
* GET DATA FROM USER IN * 
* | | | & 
KREKKEEKEKEKEEKEKEKRERKEKEEEKEEREKEKEKKEEREKEEEKEKKEERREREEKEEREEEKEKEEKEKEKEKEREEKRE 
* 


GETCHR RESV 0 

LAB $B4,$B6.AP_SBF SET $B4 TO ADDR OF SEND BUFFER 

LAB SB4,$B4.,RAN SET UP LENGTH FIELD FOR RECORD 

LDR SR6,=(BUF_SZ-RAN)*2 GET RECORD SIZE IN BYTES 
* 

SUSIN 
* 

LDR ~ SR5,='EN! CHECK TO SEE IF END WAS ENTERED 

CMR $R5,$B4 IS IT END ??? 

BE TERMO IF TRUE TERMINATE THE SESSION 

LDR $R5 ,=(BUF_SZ-RAN) *2 ELSE GET MAXIUM LENGTH OF SEND 
BUFFER 

CMR $R5 ,=SR6 WERE 0 CHAR ENTERED ?? 

BNE | >CACL IF TRUE REPORT IT 

SUSOU | NOCHAR, =NOL, L OUPUT ERROR MSG 

B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=$R6 ELSE CACULATE LL FIELD 
* TO THE RECORD LENGTH 

ADD SR5 ,=RAN*2 ADD RAN TO INPUT LENGTH 

STR SR5,$B6.(AP_SCB+SC_DLG) STORE IT IN SEND BUFFER LENGTH 
* 

LAB $B2,ADLO RAN TO BE STORED IN SEND BUFFER 

LDV $R2,0 OFFSET TO MOVE 

LAB $B3,$B6.AP_SBF ADDR OF SEND BUFFER 

LDV SR3 ,0 OFFSET TO MOVE TO 

LDV SR6 , RAN* 2 # OF CHARS TO MOVE 

MMM 
* 
/ 
KREKKEEKEEKKKKKEKKEKKKEKREKRERKREKREKREKRKKKKEEKEEKEKEEKEKEEEKKKEKKEEKEEKEEKKKEKEKEKEKEKKKKKEKKEKRKEEKKSE 
* TRANSLATE DATA FROM ASCII TO EBCDIC * 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* $R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KREEKEKEKEKEEKEEKEKEKEKEKEEREKREKEEEKKEEKRKEKREKEEEKKEREKKEKKERKKEEKRRKEERKEKKEKEKEKEEREKKKKEKKKKKKEK 
* 


LAB SB2,S5B4.-RAN SB2 = ADDR FROM BUFFER 

LDV SR2 ,0 SR2 = INDEX INTO FROM BUFFER 
LAB SB4,$B4.-RAN SB4 = ADDR TO BUFFER 

LDV SR4,0 SR4 = INDEX INTO TO BUFFER 
LDR SR6 ,=SR5 5R6 = # OF CHARS TO TRANSLATE 
$SACEB 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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KRRKEKKEKREKEKEEEKEKREEEKEKEKKEKKEKEKREKEKEEEKKKKEKEKEKEEEKEKEKEEKKKEKKEEKKKKEKRKEKEEKEKKREKKKKEKK 


SEND DATA T O T H E HOST * 
APPLICATION DATA IS STARTING AT POSITION #4 IN THE SEND BUFFER, POSITION 

0-3 ARE RESERVED FOR THE TRANSACTION NAME ( THIS IS AN HOST APPLICATION = 

RESTRICTION), DUE TO THE FACT THAT THE HOST APPLICATION SENDS AN END * 

BRACKET, TERMINATING THE APPLICATION TO APPLICATION TRANSACTION ( NOTE :* 

* 

* 


+e + + HF F 


( YOUR LU TO LU SESSION IS STILL ACTIVE ) 
KKK KKK KEKE RR E KERR KERR KEKE RRR EREKEEEEREREEEEREREREREKEEKREKREEREEKREREEK 


* 


SEND RESV 0 | 
LAB $B4,5B6.AP SCB S9B4 == VPB POINTER 
LAB SB2,$B6.AP SBF 9B2 == ADDR OF SEND BUFFER 
SSSEND ,=9B2,,L,SYNC, REPLY,MCMP 
LB =$5R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 
* 
f 
KKK KKK KEE KEKE KEK KEKE EERE KEKE ERE KERR ERE REE REE EERE REE REEREREEKEKEKEEKEEKKKES 
* RECEIVE DATA FROM HOST * 
* DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
* IS SPECIFIED BYE DATA BUFFER LENGTH (SC_DLG) = 
KKK KKK KERR KEKE KEKE EEK KERIKERI EERE EEK ER REE ERE REE KEKE KE REREEEREREREREEEKKEKK 
x 
RECV RESV 0 
LAB 9B2,$B6.AP_RBF+1 SB2 = ADDR OF RECEIVE BUFFER 
SSRECV ,=9B2,=BUF SZ,L,SYNC,MSG 
LB =S$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 
* 
LB 9B4.SC_OCT,=(SCRBOM+SCREOM) ELSE WAS BEGIN CHAIN/END CHAIN 
BBT TRANS IF TRUE GO TRANSLATE 
k 
RECV1 RESV 0 
LB $B4.SC_OCT,=SCRRQD ELSE WAS A DEFINITE RESP REQ ? 
BBT SRSP IF TRUE SEND +/- RESPONSE 
* . . 
RECV2 RESV 0 
LB $B4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED ? 
BBT OUTMSG IF TRUE GO SEND DATA 
k 
LB 9B4.SC_OCT,=SCRLST ELSE WAS IT END BRACKET ? 
BBF RECERR IF FALSE OUTPUT ERROR 
B OUTMSG ELSE GET MORE DATA 
* 
RECERR RESV 0 
SUSOUT !INVOCT,=IOL,L ELSE OUTPUT ERROR 
B OUTMSG CONTINUE PROCESSING 
* 
/ 


Figure B-1l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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RREKEKKEKREKRKEKEKREEKKKEERKERKEKREKEKRKEKRERRKEKREKKEKKEKRRKEKREKREKEKREKREKKEEKEKEEEREREKEKKREE 


* | * 
* COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER * 
* * 


KREKKEKKEKEEKEKKEKREKEKEEKEKKEKEKKEKEKEKKEEKEKEKEKKKEKEKEEKREKREKREKKEKKEKKEEKKRKKRKKAKKKRKEKKKKEKKEK 
* 


TRANS RESV 0 

LAB $B2,$B6.(AP_ SBF+RAN) $B2 = ADDR OF SEND BUFFER +RAN OFFSET 

LAB $B3,$B6.AP RBF+1 SB3 = ADDR OF RECEIVE BUFFER 

LDR $R3,$B4.SC_ADL SR3 = # OF CHARS TO TRANSLATE 

ADV $R3,-1 SUBTRACT 1 FOR BLZ 
* 
GETNXT BLZ SR3,TRANSI IF BUFFER EQUAL DISPLAY THEM 
* 

LDH SR1,$B2.S$R3 GET CHAR FROM SEND BUFFER 

CMH SR1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 

ADV SR3,-1 | SUBTRACT 1 FROM INDEX 

BE GETNXT IF EQUAL GET NEXT CHAR 

LBT $B4.SC_ICT,=SCSNEG ELSE SET BIT FOR NEG RESPONSE 

LBF $B4.SC_ICT,=SCSRSP RESET POSSITIVE RESPONSE 

SUSOUT !BADDAT,=BADDL, L REPORT ERROR 

B NXTRCV 
* 
KKEKKEKKKKEKREKKEEKEKEEKEKEE ERE EERE KREERKEKEREKEREKREEEEKKEEEEEREREE RAKES 
* TRANSLATE DATA F ROM EBCDIC T O AS CI * 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 
* FROM $B2.$R2 TO S$B4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 
* SC_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION * 
KEKE KKKKKEKKE KKK EREREEREEEKEEEEEKEEKEKEKEKREKEAEREEE 
* 
TRANS1 RESV | 0 

LBT $B4.SC_ICT,=SCSRSP SET POSITIVE RESPONSE 

LBF $B4.SC_ICT,=SCSNEG RESET NEGITIVE RESPONSE 

LDR SR6,$B4.SC_ADL SR6 = # OF CHAR TO TRANSLATE 

LAB $B2,$B6.AP_ RBF+1 SB2 = ADDR FROM BUFFER 

LDV SR2 ,0 SR2 = INDEX INTO FROM BUFFER 

LAB SB4,S$B2 $B4 = ADDR TO BUFFER 

LDV SR4,0 . SR4 = INDEX INTO TO BUFFER 

SSEBAC 
* 2 

LDR S$R6,$B6.SC_ADL GET # OF CHARS TO DISPLAY 

ADV SR6 ,1 ADJUST FOR SLEW CHAR COUNT 

LAB SB4,$B4.-1 ADJUST BUFFER ADDR FOR SLEW 

LDR SR1,=' A' SLEW CHAR TO OUTPUT 

STR SR1,S$B4 STORE IT IN THE BUFFER 

SUSOUT pie 
NXTRCV LAB $B4,$B6.AP SCB SB4 = ADDR OF VPB 

B RECV1 GET NEXT INPUT 
* 
/ 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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SRSP RESV 0 


SSSRSP , SYNC, ,=0 


LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR CANCEL ? 

BBT TERM IF TRUE ERROR 

B RECV2 ELSE CONTINUE INPUT 
‘ | 
/ 
REKKEKKKEKEKEKKEEKEEKRKEKEKKKKEKEKKKEKKEEKEKEKKRERKEKEEKEKEKEKREREKEKEKEKEEKEKEEEKEREKEEKEKKREKREKEKKKKKKE 
* TERMINATE THE SESSION * 
* TERMINATE THE SESSION NORMALLY, IF AN ERROR OCCURS, THEN AN ABNORMAL * 
* TERMINATE WILL OCCURE (TO FREE UP THE LU ) * 


KRKEEKEKEKKEKKKKEKKKKEKKEKEKKEKEKEEEKEEKEKKEKEKKEEKKREKKEKEKREREEKKEEKERKEKEKKERKKEKKKEKKKKE 
* 
* 


TERM RESV 0 
LNJ $B5 , PRTSCB DISPLAY VERB CALL AND ERROR 
LB =$R1,=RCABRT IS IT SESSION ABORTED ? 
BBF TERMO IF FALSE TERMINATE SESSION 
LB SB6.AP_CWl,=CW_RST ELSE SEE IF RESTART ENABLED 
BBF QUIT IF NOT ENABLED QUIT 
LBF SB6.AP_CW1l,=CW_RST RESET RESTART CONDITION 
SSINIT reee SYNC, RESTART 
B INIT GO CHECK RETURN CODE 
TERMO RESV 0 ELSE TERMINATE THE SESSION 
LAB $B4,$B6.AP SCB SB4 = ADDR OF THE SCCB 
SSTERM , NORM 
LB =$R1,=(RCABRT+RCSCMP) WAS IT ABORT OR REQUEST COMPLETE? 
BBT QUIT IF TRUE END PROGRAM 
* ELSE TERMINATE SESSION ABNORMALLY 
SSTERM , ABNORM 
B QUIT 
* 
/ 
* 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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QUIT RESV 


* 
* 


INPDAT TEXT. 


END THE SESSION! 


* 
INPL EQU 
* 


BADDAT TEXT 
* 
BADDL EQU 


* 
NOCHAR TEXT 


0 


SB4,SB6 SET $B4 = WORK SPACE. 


"'APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 


-(S-INPDAT) *2 


'AFORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER' 
($-BADDAT) * 2 


‘'ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 


TERMINATE THE SESSION' 
* 


NOL EQU 
* 
INVOCT TEXT 
IOL EQU 
* 
NRSTRT TEXT 
CONTINUES' 
NRSL EQU 
* 

END 


Figure B-l (cont). 


($—NOCHAR) *2 


"AINVALID OUTPUT CONTROL WORD RECEIVED' 
(S-INVOCT) *2 


‘ARESTART NOT POSSIBLE FOR THIS SESSION, BUT PROCESS 
(S-NRSTRT) *2 


TR_01,START END 


Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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TITLE TR_02,'10/22/85' SAMPLE #2 LU 0 HOST INITIATED SESSION 


LIBM '>>LDD>MACROS>MAC_ USER' 


LIBM OS LIB 
LIBM EXEC LIB 
* 
XDEF AP_SCB,AP SBF 
XLOC GTMEM, PRTSCB 
SSSCCB 
SSAIRC 
* 
ADLH TEXT A'ADLH' REMOTE APPLICATION NAME 
BUF SZ EQU 141 SIZE OF RECEIVE/SEND BUFFER 
RAN EQU 2 RAN = REMOTE APPLICATION NAME LENGTH 


AP SCB EQU 
AP SBF EQU 
AP_RBF EQU 


0 
AP_SCB+SC_SIZ 
AP SBF+BUF_ SZ 


VPB 
SEND BUFFER 
RECEIVE BUFFER 


AP STK EQU AP RBF+BUF SZ STACK SPACE 


AP_SIZ EQU AP -STK+100 APPLICATION WORK SIZE 
* 
* 
TR 02 RESV 0 
* 
* 
* UPON ENTRY: 
x 
START RESV 0 
* 
* 
LDV SR6 ,0 
LDR SR7,=AP_SIZ AMOUNT OF MEMORY TO GET 
LDV SR5,0 SET MEMORY TO ZEROS 
LNJ SB5 ,GTMEM GET MEMORY 
BEZ $R1,SETREG IF NO ERROR SET UP REGISTERS 
* ERROR 
SETREG RESV 0 
* 
LAB SB7,$B4.AP SIZ $B7 TO TOP OF STACK 
LAB SB6 ,$B4 SB6 WORK SPACE POINTER 
THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


Figure B-2. Sample Assembly Language Program for LU Type 0 


for Host-Initiated Session 
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KEKE EEE REE KEE RRR REE EERE EKER EEK EREER EERE EEERERERERRERRERKREERKEKKER 


* PO LL FOR SESSION * 
* CHECK TO SEE IF ANY LU ASSOCIATED WITH THE APPLICATION PROGRAM'S TASK GROUP * 
* HAS BEEN ATTACHED BY THE REMOTE PROGRAM, IF AN LU IS NOT PRESENT, THE * 
* APPLICATION WILL CONTINUE TO POLL UNTIL AN LU IS PRESENT x 
* POLL ( WILL NOT ESTABLISH A HOST INITIATED SESSION ) * 
KRKEKEKKKKEKEKEEKEEEREKEEEKREEKEKEEEREERREREKERERKEEEEKEEEEKREKEEREEEEEEREREKEKKEEREKEEEEE 
* 
POLL RESV 0 

$SPOLL ,'SMPLAIF','BB' 

LB =$R1,=(RCSCNL+RCABRT) WAS SESSION ABORT OR REQUEST CANCEL? 

BBT TERM IF TRUE END 

AND SR1 ,=RCMASK ESLE MASK OUT INDICATORS 

CMR $R1 ,=RMNOAT NO LU TO ATTACH? 

BE POLL IF TRUE POLL AGAIN 

CMR SR1 ,=RMLUAT ELSE IS THERE AN LU TO ATTACH? 

BNE TERM IF FALSE ERROR 
* ELSE CONTINUE PROCESSING 
/ 
x 
KEKKKEKEKKEKKEKKKKEEKKEEKEEKEKREKEREEKERKEEEEKEKKEREEEKEKREKEEEEKREKRKEKEKKEEKEKEEKKKKEKKKEEKEKEK 
e ACCEPT A HOST SESSION * 
* * 


KKKKKEKEKEKKEKKEKEEEEKEEKEKEKKEREEEEEREEEEKEEEREERKKKEEKKEKEREREKEKEEREKRKKEREERERERKEKKERKEEKEKKKK 
x 


SSACPT ,' SMPLAIF','BB' 
* 

LB =$R1,=(RCABRT+RCSCNL) WAS IT ABAND OR REQUEST CANCEL? 

BBT QUIT IF TRUE REPORT ERROR AND END 
* 
vA 
KREEKEKKEKEKEKEKEEEKEEKEEKEEEEEREKREKREREREREREKEKKERERERERREEERERERERKREEEEEKREKEEEKREEKEKERE 
* RECEIVE DATA FROM HOST x 
* WHEN A SESSION IS A HOST INITIATED SESSION THE DPS6 SIDE OF THE SESSION * 
* WILL ALWAYS BE IN RECEIVE STATE. AT THIS POINT THE APPLICATION WILL * 
* RECEIVE A CHANGE DIRECTION INDICATOR, AND THE APPLICATION NAME (SC_ADL WILL * 
* EQUAL 4). THIS IS APPLICATION DEPENDENT, TO PUT THE DPS6 SIDE INTO * 
* SEND STATE ( DATA WILL NOT BE RECEIVED AT THIS TIME). 
KRKEKKEKEREKREKEEEEKREKREKREEREKERKEKEKEKEEREREEERKEKEKREEKEEKEKREEKERKEEREREKEKRREEEKREKRKESE 
* 

LAB $B2,$B6.AP_RBF SB2 = ADDR OF RECEIVE BUFFER 

SSRECV ,=SB2,=BUF SZ,L,SYNC,MSG 

LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 

BBT TERM IF TRUE ERROR 
* 

LB $B4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED ? 

BBT OUTMSG IF TRUE GO SEND DATA 
* 

SUSOUT !INVOCT,=IOL, L ELSE OUTPUT ERROR 

B TERM TERMINATE THE SESSION 
* 
/ 
* 


Figure B-2 (cont). Sample Assembly Language Program for LU 
| Type 0 for Host-Initiated Session 
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KRREKKEKKEEKKKEEEKEEKEEREEREREKEKEKEEREKEEREKKKEEKEREREREEREEREKEEEKEKEKREKEKEKEREERKEEKEKKKKE 


* * 
* OUTPUT DATA T O USER OUT il 
* | * 
* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE SESSION * 


HAKKAR EEE REE EKER EEE ERE REE REE KEEEREREREKEE KEKE EKEEEKEEKEEKREKEREKEEEKE 
* 
OUTMSG RESV 0 

SUSOUT !INPDAT,=INPL,L 


KRKEKEKEKE KEKE KER KERR RE EEE EEK EERE EERE REE EERE EKEEEEKEEKEEKEEEKEKKEREKKKKKS 

GET DATA F ROM US ER IN * 

* 

KR KK KEKE KEKE EERE ERE EKER EKER REE EERE KER EERE EERE KEKE EEEEERKEREKEREEEEEEKKS 
* | 


+ + tN 


GETCHR RESV 0 
LAB $B4,$B6.AP SBF SET SB4 TO ADDR OF SEND BUFFER 
LAB SB4,SB4.RAN SET UP LENGTH FIELD FOR RECORD 
LDR SR6 ,=(BUF_SZ—-RAN) *2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* 
LDR SR5,='EN! CHECK TO SEE IF END WAS ENTERED 
CMR SR5,SB4 IS IT END ??? 
BE TERMO IF TRUE TERMINATE THE SESSION 
LDR $R5 ,=(BUF_SZ-RAN) *2 ELSE GET MAX LENGTH OF SEND BUFFER 
CMR SR5 ,=SR6 WERE 0 CHAR ENTERED ?? 
BNE >CACL IF TRUE REPORT IT 
SUSOUT !NOCHAR,=NOL, L OUPUT ERROR MSG 
B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=SR6 ELSE CACULATE LL FIELD 
* TO THE RECORD LENGTH 
ADD SR5 ,=RAN*2 ADD RAN TO INPUT LENGTH 
STR $R5,$B6.(AP_SCB+SC_DLG) STORE IN THE SEND BUFFER LENGTH 
* 
LAB SB2,ADLH RAN TO BE STORED IN SEND BUFFER 
LDV SR2,0 OFFSET TO MOVE 
LAB $B3,SB6.AP SBF ADDR OF SEND BUFFER 
LDV SR3 ,0 OFFSET TO MOVE TO 
LDV SR6 , RAN*2 # OF CHARS TO MOVE 
MMM 
* 
/ 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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HK KKK KEKE KE RE REEEKERE RE RE RE REE KER ERR ERE KEE EERE REE RE REKEREKREKEKEEREEERKEEKEKE 
. TRANSLATE DATA F ROM AS CII TO EBCDIC 3 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KRKEKREKREKEEKEREKEREKEREEEEEKEREKEEEEKEEKREKEEKEKEREREEEREKEEKKEERKEREEEKEEKEEREKKERERER 
* 


LAB SB2 ,$B4.-RAN SB2 = ADDR FROM BUFFER 

LDV SR2,0 SR2 = INDEX INTO FROM BUFFER 
LAB SB4,S$B2 - $B4 = ADDR TO BUFFER 

LDV SR4,0 SR4 = INDEX INTO TO BUFFER 
LDR SR6 ,=SR5 SR6 = # OF CHARS TO TRANSLATE 
SSACEB 


* 


KREKKEKEKEEKKKEEKEKEKEKEEEKEKEKKEEKKEKREKEEKREKREKEK EERE KEKE KREERKEKREEREREEREREEKRKKEKEREKRKEER 


* SEND DATA TO THE HOST 
* APPLICATION DATA IS STARTING AT POSITION #4 IN THE SEND BUFFER, POSITION * 
* 0-3 ARE RESERVED FOR THE TRANSACTION NAME ( THIS IS AN HOST APPLICATION * 
* RESTRICTION) . * 
KREKEKKEKEKEKEKEKKEKEERKEKEREREKRERREKEREEKERKEREEKEEKEKEKEKEKEKEEEKRKEKRREEKRKEERKKEEKREKEKREEE 
* 
SEND RESV 0 

LAB SB4,$B6.AP_SCB SB4 == VPB POINTER | 

LAB $B2,$B6.AP SBF SB2 == ADDR OF SEND BUFFER 

SSSEND ,=SB2,$B4.SC_DLG,L, SYNC, REPLY ,MCMP 

LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 

BBT TERM IF TRUE ERROR 
* 
/ 
KRAEKKEKEEKKEKEKREKRERKEKEKEEKKEKEKEKEKEEEKRERKKERRREEKEEKREKEKRKRERERREREKRREREKREEREKRKEEKRKREEKS 
* RECEIVE DAL FROM HOST 
* DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
* IS SPECIFIED BYE DATA BUFFER LENGTH (SC_DLG) * 


KKKKKKERKEKEEE RE KEE KEK ERE KEKE KEE EERE KEE REE RRR ERR ERR RKEKREERKERKEEREKRKREEEKEKKKR KKK 
* 


RECV RESV 0 
LAB SB2,$B6.AP_ RBF SB2 = ADDR OF RECEIVE BUFFER 
SSRECV ,=9B2,=BUF_SZ,L,SYNC,MSG 
LB =S$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 
* 
LB $B4.SC_OCT,=(SCRBOM+SCREOM) ELSE WAS BEGIN CHAIN/END CHAIN 
BBT TRANS IF TRUE GO TRANSLATE 
* 
RECV1 RESV 0 
LB | $B4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED? 
BBT OUTMSG IF TRUE GO SEND DATA 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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LB $B4.SC_OCT,=SCRLST ELSE WAS IT END BRACKET ? 


BBF RECERR IF FALSE OUTPUT ERROR 
B OUTMSG ELSE GET MORE DATA 
* . 
RECERR RESV 0 
SUSOUT LINVOCT,=IOL,L ELSE OUTPUT ERROR 
B OUTMSG CONTINUE PROCESSING 


* 


KREKEKEKKKKKEKKEKKEEKKKEKEEKEKEKKEEEEKEKEKEKEEEKRKKEKEREKEEKEKKEREKREEKEKKEKEKKKKEEKEKKEKKKKKKKKEKE 


* * 
* COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER * 
* * 


KRKEKKKEKEREEKEEEKEEEEKEEKEKEEKKKEKEKEKEEKEEEKKKEEKKEKEKEKREEKKEKKEKEKKEKERKEKEEEKKEEEKKKKEKESK 
* 


TRANS RESV 0 

LAB $B2,$B6.AP_SBF $B2 = ADDR OF SEND BUFFER 

LAB $B3 ,$B6.AP_RBF SB3 = ADDR OF RECEIVE BUFFER 

LDR $R3,$B4.SC_ADL $R3 = # OF CHARS TO TRANSLATE 

SUB $R3,=1 SUBTRACT 1 FOR BLZ 
GETNXT BLZ $R3 , TRANS] IF BUFFER EQUAL DISPLAY THEM 
* S 

LDH SR1,$B2.$R3 GET CHAR FROM SEND BUFFER 

CMH $R1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 

ADV SR3,-1 SUBTRACT 1 FROM INDEX 

BE GETNXT IF EQUAL GET NEXT CHAR 

SUSOUT |BADDAT, =BADDL, L ELSE REPORT ERROR 
* B SNDERR SEND ERROR SIGNAL TO REMOTE 

B OUTMSG 
* 
KREKEKKKEEKKEKRKEEREREKEREREKEEEKREEKEKERKEEKKEKKEEKEEEEEKERKEEKKERREKERKEEKEEKKEEKEKEREKEKKKEKEEEREE 
* TRANSLATE DATA FROM EBCDIC TO ASCII * 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 
* FROM $B2.$R2 TO $B4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* $R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE | * 
* SC_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION * 
KRRKREKRKEKRKEKEKEKEKREREKEKREEKEEKKEKKEEKKKEKEKREEKEREEREREKEKEEKERKRKERKKEERKEEKKRKKRKEKKEEE 
* 
TRANS1 RESV 0 | 

LDR SR6,$B4.SC_ADL SR6 = # OF CHAR TO TRANSLATE 

LAB $B2,$B6.(AP_RBF+RAN) $B2 = ADDR FROM BUFFER 

LDV SR2,0 $R2 = INDEX INTO FROM BUFFER 

LAB SB4,$B2 $B4 = ADDR TO BUFFER 

LDV SR4 ,0 $R4 = INDEX INTO TO BUFFER 

SUB SR6 ,=RAN*2 SUBTRACT OUT LL FIELD 

SSEBAC 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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LDR |  $R6,$B6.SC_ ADL GET # OF CHARS TO DISPLAY 


SUB SR6 ,=RAN SUBTRACT OUT RAN FIELD 

LAB $B4,$B4.-(RAN-1) ADJUST BUFFER ADDR FOR SLEW 

LDR SRL,=" A’ SLEW CHAR TO OUTPUT 

STR $R1,$B4 STORE IT IN THE BUFFER 

SUSOUT 1/R ; 

LAB $B4,$B6.AP_SCB $B4 = ADDR OF VPB 

B RECV1 GET NEXT INPUT 
* 
KREKEKKEKKEKKKEKEREKEKRKEKEKEKEERKEKEKKEKEREEKEKEKEEEEEKREEKREEEEKEREEEKEKREREREEKEKKKEEREE 
* TERMINATE THE SESSION. ) * 
* TERMINATE THE SESSION NORMALLY, IF AN ERROR OCCURS, THEN AN ABNORMAL * 


* TERMINATE WILL OCCURE (TO FREE UP THE LU ) bid 
KKK KIKI KEKE KIRKE IERIE KEE KEE RE REE REREEEEKERREEEEEEEREREEEEKREREREKKEEKKE 


TERM RESV O- 
LNJ SB5 , PRTSCB DISPLAY VERB CALL AND ERROR 
LB =$R1,=RCABRT IS IT SESSION ABORTED ? 
BBT QUIT IF TRUE END 
TERMO RESV 0 ELSE TERMINATE THE SESSION 
LAB $B4,$B6.AP_SCB $B4 = ADDR OF THE SCCB 
SSTERM , NORM 
LB =$R1,=(RCABRT+RCSCMP) WAS IT ABORT OR REQUEST COMPLETE ? 
BBT QUIT IF TRUE END PROGRAM 
* ELSE TERMINATE THE SESSION 
ABNORMALLY 
SSTERM , ABNORM 
B QUIT 
* 
/ 
* 
QUIT RESV 0 | 
LAB SB4, SB6 SET $B4 = WORK SPACE 
SRMEM 
STRMRQ 
* 
* 
INPDAT TEXT '‘APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 
END THE SESSION ' 
* 
INPL EQU ($-INPDAT) *2 
* 
BADDAT TEXT 'AFORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER ' 
* 
BADDL EQU ($-BADDAT) *2 
* 
NOCHAR TEXT ‘ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 
TERMINATE THE SESSION ' 
* 
NOL EQU ($-NOCHAR) *2 
EBREC TEXT "AEND BRACKET RECEIVED, SESSION WILL BE TERMINATED ' 
EBL EQU ($-EBREC) *2 
* 
INVOCT TEXT ‘AINVALID OUTPUT CONTROL WORD RECEIVED ' 
TOL EQU ($-INVOCT) *2 
: | 
END TR_02,START END 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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TITLE TR_SUB,'85011511' SPI TAP SUBROUTINS. 


LIBM '>>LDD>MACROS>MAC USER! 


LIBM _ EXEC_LIB 
LIBM OS LIB 
SSSCCB 
/ 
* 
XVAL AP SCB,AP_SBF 
* 
XDEF GTMEM 
GTMEM RESV 0 


* 
x 


*THIS IS THE GET MEMORY SUBROUTINE. 


* 


THE SIZE OF THE BLOCK OF MEMORY AND ITS SPACE INITIALIZATION VALUE 
ARE PROVIDED BY THE CALLER OF THIS SUBROUTINE. 


SR6/$R7 -> THE SIZE OF THE BLOCK OF MEMORY TO BE OBTAINED 
$R5 -> THE SPACE INTIALIZATION VALUE FOR THE MEMORY BLOCK 


UPON EXIT FROM THIS SUBROUTINE, THE MEMORY BLOCK'S ADDRESS AND SIZE 
OR IF THERE WAS A PROBLEM, THE ERROR CODE ARE RETURNED TO THE CALLER. 


SB4 -> ADDRESS OF THE MEMORY BLOCK 
SR7 -> SIZE OF THE MEMORY BLOCK 
SRL -> ERROR CODE 


ee ee a ee ee ee ee 


SGMEM - 


+ + 


CHECK FOR ERROR CODE RETURN FROM MACRO CALL 


% 


BEZ | SR1,>+$C IF NO ERROR ON THE GET MEM, CONTINUE 
* UNABLE TO GET THE BLOCK OF MEMORY, RETURN WITH THE ERROR CODE IN SRI 


SA  RESV 0 


JMP SB5 RETURN TO THE CALLER 


> INITIALIZE THE BLOCK OBTAINED WITH THE PROVIDED VALUE ($R5) 
* 


CLRIT RESV 8 20 
$C RESV 0 . 
LDR $R2,=SR7 INIT, THE INDEX WITH THE SIZE OF TH 


LDB SB2,=SB4 MUST USE Bl, B2, OR B3 FOR B-REL.+INDEX 


Figure B-3. Subroutines for LU Type 0 Assembly 
Language Programs 
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* THE BLOCK INITIALIZATION LOOP 


SD RESV 
STR SR5 ,$B2.-SR2 STORE THE PROPER VALUE IN THE NEXT BLOCK 
BGZ S$R2,>-SD THE INDEX IS ALSO THE NUMBER OF LOCATION 
* END OF LOOP, BLOCK IS INTITIALIZED 
B >-SA RETURN TO THE CALLER WITH ‘THE BLOCK 
* 
7- 
* 
* CONVERT 1 HEX WORD TO 4 ASCII BYTES 
* $R7 = WORD TO CONVERT 
* SR3 = OFFSET INTO MEMORY TO STORE CONVERTED VALUE 
* $B3 = BASE MEMORY ADDR OT STORE CONVERTED VALUE 
. SR2 = # OF CHARS TO STORE 
* 
ASCII EQU S$ 
LDV SR2,3 # OF BYTES TO CONVERT -1 
ASCI1 LDV SR6 ,0 
DIV SR7 ,=16 | 
ADV SR6 ,=X'30'! ADD ASCII BIAS 
CMR SR6 ,=X'003A' IS If A THROUGH F ? 
BL >STRASC IF NOT STORE IT 
ADV SR6 ,7 ADD ALPHA OFFSET 
STRASC STH SR6 ,$B3.-SR3 STORE STRING 
BDEC SR2,>ASCI1 
JMP SB5 RETURN TO CALLER 
/* 
XDEF PRTSCB 
PRTSCB RESV 0 
STB SB5 ,-SB7 SAVE RETURN ADDR 
LDR $R2,$B4.SC_OPC GET OP CODE OF VERB WITH ERROR 
LBF =$R2,=Z'F000' CHANGE HIGH ORDER NIBBLE TO 0 
OPCFND LAB S$B2,OPCTBL SB2 = TABLE TO SEARCH 
SA MLV SR2,TBLGTH SR2 = OFFSET INTO TABLE 
LAB $B3,$B6.AP SBF $B3 = ADDR OF TO BUFFER 
LDV SR3,0 $R3 = OFFSET INTO BUFFER 
LDV SR6 , TBLGTH SR6 = # OF BYTES TO MOVE 
MMM 
* 
LDR $R7 ,$B4.SC_RCD GET RETURN CODE 
LDV S$R3 ,12 OFFSET INTO BUFFER TO STORE RCD 
LNJ $B5, ASCII CONVERT AND STORE ASCII RETURN CODE 
‘ | 
SUSOUT =$B3 ,=TBLGTH+2 
LAB $B4,$B6.AP_SCB RESET SB4 TO SCB 
LDR $R1,$B4.SC_RCD RESET SR1 TO RETURN CODE 
LDB SB5 ,+SB7 RESTORE RETURN ADDR 
JMP SB5 RETURN TO CALLER 


Figure B-3 (cont). Subroutines for LU Type 0 Assembly 
Language Programs 
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* OP CODE TABLE 


OPCTBL § RESV 0 
TEXT ‘ASSINIT 
TBLGTH § EQU ($-OPCTBL) *2 
TEXT " ASSTERM 
TEXT " ASSSEND 
TEXT " ASSRECV 
TEXT 'ASSSI 
TEXT ‘ASSRI ' 
TEXT "ASSCASR 
TEXT " ASSWANY 
TEXT "ASSTEST 
* 
END TR SUB 


Figure B-3 (cont). Subroutines for LU Type 0 Assembly 
Language Programs 
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XDEF 
XLOC 
SSVPB 
SSAIVR 


* 


BUF SZ EQU 
LL EQU 
* 

AP VPB EQU 
AP SBF. EQU 
AP_RBF EQU 


VR_01,'10/22/85' SAMPLE #1 


LIBM '>>LDD>MACROS>MAC_USER' 
LIBM 
LIBM 


OS_LIB 
EXEC_LIB 


AP VPB,AP_ SBF 
GTMEM, PRTVRB 


141 


AP _VPB+VP_SIZ 
AP_SBF+BUF_SZ 


AP STK EQU AP RBF+BUF_ SZ 
AP SIZ EQU AP STK+100 
* 
* 
VR_01 RESV 
* 
* 
* UPON ENTRY: 
*k 
START RESV 0 
* 
* 
LDV SR6 ,0 
LDR SR7,=AP_SIZ 
LDV SR5 ,0 
LNJ SB5,GTMEM 
BEZ SR1,SETREG 


* ERROR 


SETREG RESV 
* 


LAB 
LAB 


+e * 


Figure B-4. 


0 


$B7,$B4.AP_SIZ 


SB6 ,$B4 


LU 6.2 DPS 6 INITIATED SESSION 


SIZE OF RECEIVE/SEND BUFFER 


LENGTH OF THE LL FIELD 
LL = 

VPB 

SEND BUFFER 

RECEIVE BUFFER 


_ STACK SPACE 


APPLICATION WORK SIZE 


AMOUNT OF MEMORY TO GET 
SET MEMORY TO ZEROS 
GET MEMORY 


IF NO ERROR SET UP REGISTERS 


SB7 TO TOP OF STACK 
SB6 WORK SPACE POINTER 


THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


Sample Assembly Language Program for LU Type 6.2 
for DPS 6-Initiated Session 
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KKK KKK KKK KEE KEI EKER EKER ERIK RR ERR EEK EK KEE KK ERE EERE KEKE EERE KEKE EKER KEKE 
= . ALLOCATE THE CONVERSATION m 
x * 
KH K KKK KEKE RK KEKE KERR KEKE KKK KEKE EKER KEKE KEKE KEKE REE KEKE EERE EKEKEEKEKKKEKEE 
* 


SSALLO ,'SMPLAIF','AQ6CICS2',=A'ADL6','AA', AVAIL, CONFIRM 
* 
LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT QUIT IF TRUE REPORT ERROR AND END 
/ 
* 
TUS STSSICCOCSTICLCCLCLCICCCLIES SCT CSCS SS TTC ECCS SCSCCLILCITAISL LCST CTCCCLCCLSCSCCSAL ICCC CCAL ILL. Ss 
a FLUSH THE LU'S SEND BUFFER * 
* FLUSH THE LOCAL LU'S SEND BUFFER,CAUSING THE ALLOCATE OF THE CONVERSATION * 
* TO BE ESTABLISHED, THIS COMMAND IS OPTIONAL, IF IT IS NOT USED THE 


* COMMAND WILL BE BUFFERED UNTIL THE PREPARE TO RECEIVE IS ISSUED IN THE APPL* 
KKK KEKE KEKE KER KKK KERIKERI EKER ERE REE KERIKERI KEKE KEKE EKER ERE EERE KEEEREKEE 


* 


SSFLSH 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT QUIT IF TRUE REPORT ERROR AND END 
* 
rd 
KREKKEKKKEKEKKEKKKEKEKKEKKEREKKERKERREREEREKKEEKEKEKKEEKEKREEKEKEREKEEKEKEKKKKEKEKKKKKKKKEKESE 
* * 
* OUTPUT DATA T O US ER OUT * 
* * 
* 


PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE CONVERSATION * 
KKK KEE RE KR EKREI ER IKKEKEKEEEIRK EKER ERIE RE RERREKEKEREKREKEKEKEREREREKEEEKEEREEKES 


* 


OUTMSG RESV 0 

SUSOUT !INPDAT,=INPL,L 
* 
/ 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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REKKEKKEKEKEEKEKEEEKEKEKKEKEEKEKREKKKEKEEKEEKEKKEEKEKREK KKK REKKEKKKERKEKKEEK 
* GET DATA FROM USER IN * 
* | | . * 
REKEKKEKEKEEKKEKEEKREKEEEKKEKKEKEKKEKKEKEKKEREEEKEEKEEEKEKEEKEREREEEKKEEKRKEKEKEEKEE 
* 


GETCHR RESV 0 
LAB $B4,$B6.AP SBF SET $B4 TO ADDR OF SEND BUFFER 
LAB SB4,SB4.LL | SET UP LENGTH FIELD FOR RECORD 
LDR $R6 ,=(BUF SZ-LL) *2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* : 
LDR SR5,='EN! CHECK TO SEE IF END WAS ENTERED 
CMR SR5 ,SB4 IS IT END ??? 
BE DEALO IF TRUE DEALLOCATE THE CONVERSATION 
LDR $R5 ,=(BUF_SZ-LL) *2 ELSE GET MAX LENGTH OF SEND BUFFER 
CMR SR5 ,=SR6 WERE 0 CHAR ENTERED ?? 
BNE >CACL IF TRUE REPORT IT 
SUSOUT ! NOCHAR,=NOL,L - OUPUT ERROR MSG 
B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=SR6 ELSE CACULATE LL FIELD 
ADD SR5 ,=LL*2 ADD THE LENGTH OF THE LL FIELD 
* | TO THE RECORD LENGTH 
STR SR5,SB4.-LL STORE IT IN THE SEND BUFFER 
* 
vA 
BEEK KREKEKEEKREKKEKEKKKKKEREKKEEKEEKKKKE RRR KK KK AKRR KKK EK 
* TRANSLATE DATA FROM ASCII TO EBCDIC * 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM S$B2.SR2 TO S$B4.SR4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KKK KE EEK EERE ERE REE REE REE KEKE KER EEE KEKE KKK EKEREEKEKKEREKEEKEKKEKS 
* 


LAB SB2,$B4 SB2 = ADDR FROM BUFFER 
LDV SR2,0 SR2 = INDEX INTO FROM BUFFER 
- SB4 = ADDR TO BUFFER 
: LDV SR4,0 SR4 = INDEX INTO TO BUFFER 
LDR | SR6 ,=$R5 SR6 = # OF CHARS TO TRANSLATE 
SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 
SSACEB 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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RHEEKKEKEKEKKEREKKEEKEKEREKEKKKEKEKKEKRKEKKEKKKEKEKEKEKEKEEREEEKKKEKEEEKKREKEKEERERKEKRKREEE 
* SEND DATA _ TO THE HOST * 
* * 
KRKEKEKEKKEKKEKEKEKKEKERKEKEEKEKEKEKEKEKEKEKRKEKKEKEKKERERKEKEKEEKKEKEKEKEKKKKEKKEEKKEKEKRKKEKE 
* 


LAB $B4,$B6.AP VPB $B4 == VPB POINTER 

LAB SB2,S$B6.AP_ SBF $B2 == ADDR OF SEND BUFFER 

SSSDAT ,=SB2,$B6.AP_ SBF 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 
/- 
KEKEKKEKEKKEKKKEKERKEEKEKEKEEKREKEKEEKEKKEKKEKKEKKEKKKEEKEREKEKKEKKKEKKEKEKKKEKEKKKEKKEKKKKKKEKEK 
* PREPARE T O RECEIVE * 
* THIS COMMAND WILL CHANGE THE CONVERSATION STATE FROM SEND, TO RECEIVE, AND * 
* FLUSH (TRANSMIT) THE LOCAL LU'S SEND BUFFER. ‘ 
* THIS COMMAND IS OPTIONAL, AND THE SAME RESULT COULD OF BEEN OPTAINED BY * 
* A SSRAW ( RECIEVE AND WAIT). THE LOCK OPTION BEING USED (LONG) SPECIFIES * 
* RETURN CONTROL TO THE LOCAL PROGRAM AFTER DATA AND AN ACKNOWLEDGEMENT IS * 
* RECEIVED FROM THE REMOTE TRANSACTION. * 
RKEKEEKEKEKEKKEEKKKEKEKEEEEKERKEEKEKERKEEKEREKKEKEKEKEKEEKKKEKKEKKKEKEEKEKKKKEKKEKEKKRKKKKRKEK 
* 

SSPTOR , FLUSH, LONG 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 
/ 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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KREKEKKEEKEEEEEKKEKKEKKEKEKEKEKEERERKEERREE KERR EEKEREEEKEEKRKRRKRKRKREKREE 


RECEIVE AND WATT 


THIS COMMAND WILL CHANGE YOUR CONVERSATION STATE TO RECEIVE , IF YOU ARE 
NOT IN RECEIVE STATE, AND THEN FLUSH ITS SEND BUFFER. THE LU THEN WAITS 


AVAILABLE. THIS RECEIVE SPECIFIES BUFFER, WHICH WILL RECEIVE 


DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE 


IS SPECIFIED BYE DATA BUFFER LENGTH (VP_DLG) 
KKK EKER KEKE KEKE KEKE KE KEKE KEE RE REE KKK E KEKE KR RERE RE RE RERERERRERERERERKS 


* 
* 
* 
* CURRENTLY 
* 
* 
* 
* 


RAW 


CHK1 


CHK2 


+ + F HF HF HN HF e) 
Ha © 
~ 
WwW 


: 


GETNXT 
* 


RESV 
LAB 
SSRAW 
LB 
BBT 


SUSOUT 
B 


k 
* 
% 
FOR INFORMATION TO ARRIVE, OR RECEIVES THE DATA WITHOUT WAITING IF IT IS * 
k 
# 
* 


0 

$B2,$B6.AP_RBF SB2 = ADDR OF RECEIVE BUFFER 
,=$B2,=BUF_SZ,BUFFER 

=$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 


DEAL IF TRUE ERROR 

$R2,$B4.VP_WAR ELSE GET THE WAT RECEIVED FIELD 
SR2,=VBRDAT IF DATA RECEIVED TRANSLATE IT 
TRANS 

$R2 ,=VBRCSN ELSE WAS IT A CONFIRM WITH SEND ? 
>CHK1 IF TRUE EXECUTE A COMFIRMED 

SB5 , CONFMD (SEND STATE ) 

OUTMSG GO BACK TO TERMINAL FOR MORE DATA 
$R2 ,=VBRSND ELSE WAS IT A REQUEST TO SEND 
OUTMSG IF TRUE OUTPUT PROMPT 
9R2,=VBRCDA ELSE WAS CONFIRM DEALOCATE? 
>CHK2 IF TRUE EXECUTE CONFIRMED 
SB5 , CONFMD (RESET STATE) 

QUIT | EXIT APPLICATION 

SR2 ,=VBRCNF ELSE WAS IT CONFIRM ? 

CHK3 IF TRUE EXECUTE CONFIRMED 
SB5 , CONFMD (STATE DOES NOT CHANGE) 
RAW GOTO NEXT RECEIVE 
IBADWHT,=WHTL, L ELSE REPORT ERROR & CONTINUE 
SNDERR 


KRREEKEKKEEEEREKEEKEKEKKEKEREKEKRERKEKEKRKEKEKRKEKEKEEEEERKEEKEEKEKEEREEEEKRKEKKEKEKEKEKEEKKKRKKEEE 


* 


COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER * 


* 


KEKKKKEKEKEKEKEKEKEKEKEKKEKEEKEEEKEKEEEEKREKEREKEEEEREKREEKEKKEEKEKEEKEKKEREEEREKREREKKKKEKEK 


0 ‘ 

SB2,$B6.AP_ SBF SB2 = ADDR OF SEND BUFFER 
SB3,$B6.AP_RBF SB3 = ADDR OF RECEIVE BUFFER 
SR3,$B4.VP_ADL SR3 = # OF CHARS TO TRANSLATE 
$R3 ,=1 SUBTRACT 1 FOR BLZ 

$R3, TRANS1 IF BUFFER EQUAL DISPLAY THEM 


Figure B-4 (cont). Sample Assembly Language Program for LU 


Type 6.2 for DPS 6-Initiated Session 


05/86 
B-22 GR11-01A 


SUSOUT 
B 
* 


SR1,$B2.$R3 
SR1,$B3.$R3 
SR3,-l 

GETNXT 
!IBADDAT,=BADDL,L 
SNDERR 


GET CHAR FROM SEND BUFFER 
COMPARE WITH CHAR FROM RECEIVE BUFFER 
SUBTRACT 1 FROM INDEX 
IF EQUAL GET NEXT CHAR 
ELSE REPORT ERROR 
SEND ERROR SIGNAL TO REMOTE 


KRKEKKEKRKREKEKKEEREEKKEKKEKKKEKEKKREKKEEEKEREEKKERKKEEKKEKEKRKEKEKEKEKEKKEKKKKKEKEKKKEKEKKEKKEKKKKKKKE 


* TRANSL 


ATE DATA FROM 


EBCDIC T O ASCII 


* 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 
* FROM $B2.$R2 TO SB4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 
* 
* 


* VP_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION 
KREKKEEEKKKEREKKKERERKEKEEEKKRKREKKEKKKKKEKEKKKK KEKE EEKKEKKEEKEREKEEEE 
* 
TRANS1 RESV 0 | 

LDR $R6,$B4.VP_ADL SR6 = # OF CHAR TO TRANSLATE 

LAB $B2,$B6.(AP RBF+LL) SB2 = ADDR FROM BUFFER 

LDV SR2,0 SR2 = INDEX INTO FROM BUFFER 

LAB SB4,SB2 $B4 = ADDR TO BUFFER 

LDV SR4,0 SR4 = INDEX INTO TO BUFFER 

SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 

SSEBAC 
* 

LDR $R6,$B6.VP_ADL GET # OF CHARS TO DISPLAY 

SUB SR6 ,=LL SUBTRACT OUT LL FIELD 

LAB SB4,$B4.-LL ADJUST BUFFER ADDR FOR SLEW 

LDR SR1,=' A’ SLEW CHAR TO OUTPUT 

STR SR1,S$B4 STORE IT IN THE BUFFER 

SUSOUT rR 

LAB $B4,$B6.AP VPB SB4 = ADDR OF VPB 

B RAW GET NEXT INPUT 
“ , 
/ ; 
KREEKKREKRKKKEEKEKKERKEERREKERKERKERKEKEEEEE REECE KKKKREEKEKESE 
* DEALLOCATE THE CONVERSATION * 
* DEALLOCATE THE CONVERSATION NORMALLY AND FLUSH THE LOCAL LU'S SEND BUFFER * 
* IF THE DEALLOCATE NORMAL IS NOT HONORED, AN ABNORMAL DEALLOCATE TYPE = * 
* PROGRAM ERROR WILL EXECUTE, FORCING THE CONVERSATION TO DEALLOCATE * 


RREEEEKEKEKRKEEKKRERKEEEERRERKEREEKERERERREREKRKEEKKEEREKRKEEEEKEEEKEERKERKEEEKREREREKKEKKEEKE 


* 
* 


DEAL RESV 


DEALO RESV 


Figure B-4 


0 

SB5 ,PRTVRB 

=$R1 ,=VRABND 
QUIT 

0 

SB4,$B6.AP _VPB 
»FLUSH,NO LOG,, 


DISPLAY VERB CALL AND ERROR 
IS IT CONVERSATION ABEND ? 
IF TRUE END 
ELSE DEALLOCATE THE CONVERSATION 
SB4 = ADDR OF THE VPB 


=$R1,=(VRABND+VRSCMP) WAS IT ABAND OR REQUEST COMPLETE ? 


QUIT 


»PROG AB,NO LOG,, 
QUIT 


IF TRUE END PROGRAM 
ELSE DEALOCATE ABNORMALLY 
(PROGRAM ERROR) 


(cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 


05/86 
GRI1-O1A 


RREKEKEEKKREKRKKEKRKREKKKEKEREKEKREKKEREKERERKEEREKRKEKEKRKKEKKKRRKEKKEKEKRKREKKKKKKKKKEKEKEKE 


* | SEND ERROR TO REMOTE * 
* SEND AN ERROR TO THE REMOTE. THE CONVERSATION STATE WILL CHANGE FROM * 
* RECEIVE TO SEND STATE, AND THE SEND BUFFER WILL NOT BE FLUSHED. ~ * 
REKEKKEKKEKEKEKEKKEKKEKEREREKRKEKREKRKEKEKKEKERRKERRKEKEKEKRKKKKKKRKEKKRKEEKKEKRKEKEKERKKRKEKKEKE 
A | | | 
SNDERR RESV 0 

LAB $B4,$B6.AP _VPB $B4 = ADDR OF VPB 

SSSERR ,PROG,NO LOG, 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 

B OUTMSG ELSE RECEIVE NEXT 
* 
/ 
REKKEKKEKEEKEKRKKEKEKEKKEKEREKEKEKEEKEKREKEKKKREKREKEKEKREKEKEKKEKKEKEKKEKEKKEEKRKKKKKKKKREKKE 
* * 
* S END CONFIRMED TO REMOTE * 
* * 


KRKEKEKKEKKEKKKEEKEKKEKKEKRKKEKREEEKKEKRKEKKEEKKEKRKEKEKKKEEKKKEEKEEKEKKEKKEKKKKEKKKEKKKKKKEKEK 
* 


CONFMD RESV 0 
SSCNFD 
LB =SR1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 
JMP SB5 ELSE RETURN TO CALLER 
* 
7 
* 
QUIT RESV 0 | 
LAB SB4 ,SB6 SET SB4 = WORK SPACE 
SRMEM 
STRMRO 
ke 
* 
INPDAT TEXT "APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 
END THE CONVERSATION ! 
* 
INPL EQU (S-INPDAT) *2 
fe 
BADDAT TEXT ‘AFORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER ' 
* 
BADDL EQU (S-BADDAT) *2 
* 
BADWHT TEXT "AUNEXPECTED WHAT RECEIVED FIELD’ 
* 
WHTL EQU — (S-BADWHT) *2 
* 
NOCHAR TEXT "ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 
DEALOCATE THE CONVERSATION’ 
* 
NOL EQU ($-NOCHAR) *2 
END VR_01 END 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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TITLE 


* 


LIBM 
LIBM 
LIBM 


XLOC 
XDEF 


SSVPB 
SSAIVR 


* 


BUF_SZ EQU 
LL EQU 
* 

AP_VPB EQU 
AP_SBF EQU 
AP_RBF EQU 


VR_02,'10/22/85' SAMPLE #2 LU 6.2 


'>>LDD>MACROS>MAC_USER' 


OS LIB 
EXEC LIB 


GTMEM 
AP VPB,AP_SBF 


141 


AP VPB+VP_ SIZ 
AP_SBF+BUF_SZ 
AP_RBF+BUF_SZ 


AP_STK+100 


0 


SR6 ,0 
$R7,=AP_ SIZ 
$R5 ,0 
$B5,GTMEM 
$R1 , SETREG 


0 


$B7,$B4.AP_ SIZ 
$B6 , $B4 


AP_ STK EQU 
AP SIZ EQU 
* 
* 
VR_02 RESV 
* 
* 
* UPON ENTRY: 
* 
START RESV 
* 
* 
LDV 
LDR 
LDV 
LNJ 
BEZ 
* ERROR 
SETREG RESV 
* 
LAB 
LAB 
* 
* 
/ 
* 


Figure B-5. 


25 


HOST INITIATED SESSION 


SIZE OF RECEIVE/SEND BUFFER 


LENGTH OF THE LL FIELD 


LL = 

VPB 

SEND BUFFER 
RECEIVE BUFFER 
STACK SPACE 


APPLICATION WORK SIZE 


AMOUNT OF MEMORY TO GET 
SET MEMORY TO ZEROS 


GET MEMORY 


IF NO ERROR SET UP REGISTERS 


SB7 TO TOP OF STACK 
SB6 WORK SPACE POINTER 
THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


Sample Assembly Language Program for LU Type 6.2 
for Host-Initiated Session 


05/86 
GRI11-O1A 


KK KKK KEKE KEKE KEKE KEKE KEE KERR KEKE KEKE ERR ERK IKE EE KEKE KEKE EERE RKEKEKEEKREKEK 
bg ATTACHED THE CONVERS ATION i 
* | | * 
KKK KEKE KK EKER EEE EK EERE KEK KEKE KEKE EERE EKER KEKE EKER EERE RE RRREEEKERKEEEKEKEKEKKEKE 
* 


SSATCH ,' SMPLAIF',‘AA' ,CONFIRM 
* 
LB =$R1,=VRABND WAS IT ABAND 
BBT QUIT IF TRUE REPORT ERROR AND END 
LB =SR1,=VRSCNL ELSE WAS IT REQUEST CANCELLED ? 
BBF RAW IF FALSE PREFORM A SSRAW 
AND SR1 ,=VRMASK ELSE MASK OUT RETURN CODE 
CMR $R1,=VRSLNS COMPARE IS MISMATCH SYNC LEVELS? 
BNE QUIT IF NOT EQUAL QUIT 
SUSOUT IMISMSL,=MISL,L ELSE ISSUE MISMATCH ERROR 
B QUIT EXIT APPLICATION 


* 


KKKEKKKEKEKKKKKKK EEK KKK ERE KEKE KEKE KEKE EK KEKE KEE EEK KEKEKEKEKEEKKEKKEKEKKKKEE 


x * 
* OUTPUT DATA T O USER OUT * 
* x 


* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE CONVERSATION #* 
KKK KEKE KKK KEE ERK EKER ERE EK KEK KEE KEKE EERIE KIER ERE EKER REE EREREKEEKREKEKESK 


* 


OUTMSG RESV 0 

SUSOUT !INPDAT,=INPL,L 
* 
7. 
KKK KK KK KKK KEK EERE KEKE EERE KEKE REE RE RE RRR E ERE KEEEKKEEKE EEE KEREKEKEKEE 
. GET DATA FROM USER IN * 
* * 


KEKEKKKKKKEKEKEKEKREKE KEKE EKER KKK KEREEKRREKKEKREKKEKKEKEKEKEKKKEKEKE 
* 


GETCHR RESV 0 
LAB 5B4,$B6.AP_ SBF SET $B4 TO ADDR OF SEND BUFFER 
LAB SB4,SB4.LL SET UP LENGTH FIELD FOR RECORD 
LDR SR6,=(BUF_SZ-LL)*2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* 
LDR SR5,='EN' CHECK TO SEE IF END WAS ENTERED 
CMR $R5,5B4 IS IT END ??? 
BE DEAL IF TRUE DEALLOCATE THE CONVERSATION 
LDR SR5,=(BUF_SZ-LL) *2 ELSE GET MAXIUM LENGTH OF SEND BUFFER 
CMR SR5 ,=SR6 WERE 0 CHAR ENTERED ?? 
BNE >CACL IF TRUE REPORT IT 
SUSOUT !NOCHAR, =NOL,L OUPUT ERROR MSG 
B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=$R6 ELSE CACULATE LL FIELD 
ADD SR5 ,=LL*¥2 ADD THE LENGTH OF THE LL FIELD 
~ TO THE RECORD LENGTH 
STR $R5,S$B4.-LL STORE IT IN THE SEND BUFFER 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host-Initiated Session 
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KEK KKK ERE KEKE ERE ERE ERE ERE REE ERE ERIE RR E EK KRERE KEKE RE EEREERERRKEKE 
TRANSLATE DATA FROM ASCII TO EBCDTIC * 


a er 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . x 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KEKKEKKKEKEKEKEEEKRKKEEKEKRERKEKKEEKEREKEEKKREERKEKKKEEKEKEKEEKKEEKKEKRERKKRERKEEKREERKKEKKKREKKK 
* 


ADDR FROM BUFFER 
INDEX INTO FROM BUFFER 
ADDR TO BUFFER 


LAB SB2 ,SB4 SB2 
LDV SR2,0 SR2 


* 
i 
to 
if 
nonin i 


LDV $R4,0 SR4 INDEX INTO TO BUFFER 
LDR SR6 ,=SR5 SR6 # OF CHARS TO TRANSLATE 
SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 

SSACEB 


S END DATA T O THE HOST = 
* 


* 
KRREKKKKEKKEEKEKEKKEKEKREREEEEKEKEKKKEKREKEKEEEKRKEEEKEKKRKEEKREREEEEREKERKEKEKEKEKEKKKEKKKEKEKEE 
* 
* 
KREKKEKRKEKEKKEKEKREKEKKKEEKEREREKKEEKEEEREKEEEEKRERKEKEERKREEKEREERERKEKEKKKEKKEREKKEEKEKKEKKK:E 


LAB $B4 , SB6 $B4 == VPB POINTER 

LAB $B2,$B6.AP_ SBF $SB2 == ADDR OF SEND BUFFER 

SSSDAT ,=$B2,$B6.AP SBF 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 
Doin oa a bee aaaaear ars nue eet ee eea ganna wntase Decaedeeseniasansessaas 
* PREPARE T O RECEIVE * 
* THIS COMMAND WILL CHANGE THE CONVERSATION STATE FROM SEND, TO RECEIVE, AND * 
* FLUSH (TRANSMIT) THE LOCAL LU'S SEND BUFFER. 
* THIS COMMAND IS OPTIONAL, AND THE SAME RESULT COULD OF BEEN OPTAINED BY * 
* A SSRAW ( RECIEVE AND WAIT). THE LOCK OPTION BEING USED (LONG) SPECIFIES * 
* RETURN CONTROL TO THE LOCAL PROGRAM AFTER DATA AND AN ACKNOWLEDGEMENT IS * 
* RECEIVED FROM THE REMOTE TRANSACTION. * 
KEKEKKKEKKRKEEEEKEKKEREEEEEREREERERKEKEEREEKEEKEKEKEKEEREEREKEKEEKKKKEKEKEKRKEKKRKKRKKEKKEEK 
* 

SSPTOR , FLUSH, LONG 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 
/ 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host-Initiated Session 


05/86 


B-27 GRI11-O1A 


RREKKKKEKEKEKRERERERREREEKEKRKEREKRERKEREREKRRERKEERKEKREKERKKEKEKEEEEEKREKEKKEEEKEKEKEKKEKEEKEKK 


* RECEIVE AND WAIT * 
* THIS COMMAND WILL CHANGE YOUR CONVERSATION STATE TO RECEIVE , IF YOU ARE * 
* NOT IN RECEIVE STATE, AND THEN FLUSH ITS SEND BUFFER. THE LU THEN WAITS’ * 
*. FOR INFORMATION TO ARRIVE, OR RECEIVES THE DATA WITHOUT WAITING IF IT IS * 
* CURRENTLY AVAILABLE. THIS RECEIVE SPECIFIES BUFFER, WHICH WILL RECEIVE * 
* DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
* IS SPECIFIED BYE DATA BUFFER LENGTH (VP_DLG) * 
JO IGT III IIT TIC III IIIT TI II I Tok 
* ro 
RAW RESV 0. 
LAB $B2,$B6.AP_RBF SB2 = ADDR OF RECEIVE BUFFER 
-SSRAW ,=$B2,=BUF_SZ,BUFFER 
LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 
* 
LDR $R2,$B4.VP_WAR ELSE GET THE WAT RECEIVED FIELD 
CMR SR2,=VBRDAT IF DATA RECEIVED TRANSLATE IT 
BE TRANS 
CMR $R2 ,=VBRCSN ELSE WAS IT A CONFIRM WITH SEND ? 
BNE >CHK1 IF TRUE EXECUTE A COMFIRMED 
LNd $B5 , CONFMD (SEND STATE ) 
B OUTMSG GO BACK TO TERMINAL FOR MORE DATA 
CHK1 CMR SR2 ,=VBRSND ELSE WAS IT A REQUEST TO SEND 
BE OUTMSG IF TRUE OUTPUT PROMPT 
CMR $R2,=VBRCDA ELSE WAS CONFIRM DEALOCATE? 
BNE >CHK2 IF TRUE EXECUTE CONFIRMED 
LNJ SB5 , CONFMD (RESET STATE) 
B QUIT EXIT APPLICATION 
CHK2 CMR $R2 ,=VBRCNF ELSE WAS IT CONFIRM ? 
| BNE CHK3 IF TRUE EXECUTE CONFIRMED 
LNJ $B5 ,CONFMD (STATE DOES NOT CHANGE) 
B RAW GOTO NEXT RECEIVE 
CHK3 SUSOUT 1BADWHT,=WHTL, L ELSE REPORT ERROR & CONTINUE 
B SNDERR 
* 
/ 
KREKKKEKEKKEEKEKKEEKREKEKEREREKREEKEREEKRREKEEEKEKEEKKEREKEREKEREERKEEKERKEEKKKEREKEKEKKREKRKEKRKKKKSE 
* * 
* COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER * 
* * 


KREKEKKKEKKEKEKEEKKEEKEEKKEKEREKEKRERKKKKKREREKEERKEEKKRERKEREKEEREKRKEKRRKEEREEERREKREKEEEKEKKEKEKE 


* 
TRANS 


GETNXAT 
* 


Figure B-5 (cont). 


0 

$B2,$B6.AP_ SBF 
$B3 ,$B6.AP_RBF 
$R3,$B4.VP_ADL 
$R3 ,=1 
SR3 , TRANSL 


SB2 = ADDR OF SEND BUFFER 
SB3 = ADDR OF RECEIVE BUFFER 
SR3 = # OF CHARS TO TRANSLATE 


SUBTRACT 1 FOR BLZ 


IF BUFFER EQUAL DISPLAY THEM 


Sample Assembly Language Program for LU 


Type 6.2 for Host-Initiated Session 


05/86 
GRI1-Ol1A 


LDH 
CMH 
ADV 

BE 
SUSOUT 
B 


* 


$R1,$B2.5R3 GET CHAR FROM SEND BUFFER 


$R1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 
$R3 ,-1 SUBTRACT 1 FROM INDEX 

GETNXT IF EQUAL GET NEXT CHAR 
!BADDAT,=BADDL, L ELSE REPORT ERROR 

SNDERR SEND ERROR SIGNAL TO REMOTE 


KEK KKK EKER ERK IKE IKE KER EKER ERE ERR ER ERE ERE RR EREEREREREREREEKREKREEKER 
- TRANSLATE DATA FROM EBCDIC TO ASCII 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 
* FROM $B2.$R2 TO $B4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
* SR6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 
* VP_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION * 
KKEKEKEKKEKKEEEKEEEEEREKEREREKERERERKKKEREREEEREKKEEKREEEKKKEKEEEKEKKKEKEKEKEKEKEKKERKKEK 
* 
TRANS1 RESV 0 

LDR SR6,$B4.VP_ ADL SR6 = # OF CHAR TO TRANSLATE 

LAB $B2,$B6.(AP_ RBF+LL) SB2 = ADDR FROM BUFFER 

LDV SR2,0 SR2 = INDEX INTO FROM BUFFER 

LAB SB4 ,$B2 SB4 = ADDR TO BUFFER 

LDV SR4,0 SR4 = INDEX INTO TO BUFFER 

SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD | 

SSEBAC 
* 

LDR SR6,$B6.VP_ADL GET # OF CHARS TO DISPLAY 

SUB SR6 ,=LL SUBTRACT OUT LL FIELD 

LAB SB4,$B4.-LL ADJUST BUFFER ADDR FOR SLEW 

LDR SR1,=' A! SLEW CHAR TO OUTPUT 

STR SR1,SB4 STORE IT IN THE BUFFER 

SUSOUT poR 

LAB $B4,$B6.AP VPB SB4 = ADDR OF VPB 

B RAW GET NEXT INPUT 
* 
/ 
KREEKKKKEKREEEKREEKEEEREKEEERKEEKKEREKKEEEKERRKKKEERERKEKREEREAEKEEKEKRKERKKRK KK KKEEK 
* DEALLOCATE THE CONVERSATION * 
* DEALLOCATE THE CONVERSATION NORMALLY AND FLUSH THE LOCAL LU'S SEND BUFFER * 
* IF THE DEALLOCATE NORMAL IS NOT HONORED, AN ABNORMAL DEALLOCATE TYPE = * 
* PROGRAM ERROR WILL EXECUTE, FORCING THE CONVERSATION TO DEALLOCATE * 
KREKKEKEKEKEEEKEEREREKEREEEEREKEEEKERREEEEEEREEEEREKEEEEEEREKEEEKREREEEEKEREKEKKKKEER 
* 
* 
DEAL RESV 0 

LAB $B4,$B6.AP_VPB $B4 = ADDR OF THE VPB 

SSDEAL ,FLUSH,;NO LOG,, 

LB =$R1,=(VRABND+VRSCMP) WAS IT ABAND OR REQUEST COMPLETE ? 

BBT QUIT IF TRUE END PROGRAM 
* ELSE DEALOCATE ABNORMALLY (PROGRAM ERROR) 

SSDEAL ,PROG_AB,NO LOG,, 

B QUIT 
* 
/ 


Figure B-5 (cont). Sample Assembly Language Program for LU 


Type 6.2 for Host-Initiated Session 
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REKEKKEKEKKEKEKEEKERREKKEEKRKEKEKREKEKEEKKEKEEKEKEKREEEERKREKEEKEEEKEKERKREKKEEEEREKKKKKKEKK 


* SEND ERROR TO REMOTE * 
* SEND AN ERROR TO THE REMOTE. THE CONVERSATION STATE WILL CHANGE FROM * 
* RECEIVE TO SEND STATE, AND THE SEND BUFFER WILL NOT BE FLUSHED. * 
REKKKKKKKEKEEEEEKEEKKEEEEKERKKEEKREEREKKEKKKEEKEREKEEEEREKRKEEEKEKKKREEEEEKKEEKEREKKESE 
* 
SNDERR RESV 0 

LAB $B4,$B6.AP_VPB $B4 = ADDR OF VPB 

SSSERR rPROG,NO_LOG, 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ?> 

BBT DEAL IF TRUE ERROR 
* 

B OUTMSG ELSE RECEIVE NEXT 
* 
7 
KRKKKEEKKEKEKKEEKKEKKKERREKRERERKKERKERRERKKERKRKEREEKKREREKERREREKKKKKEKKKEKKKKRKKKRKKEK 
x * 
* SEND CONFIRMED TO REMOTE * 
* * 


KREEKKKEKKEEEEKEKEKEKEEEEEEEKEKKKEKEKEREEEEKEKREKEREKEERERERREEKRKRKEEEKREKRREKRKRKKKKEKKREEESE 
* 


CONFMD RESV 0 
SSCNFD 
LB =SR1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 
JMP SB5 ELSE RETURN TO CALLER 
* 
/ ¢ 
* 
QUIT RESV | 0 
LAB SB4 , SB6 SET SB4 = WORK SPACE 
SRMEM 
STRMRQ 
* 
* 
INPDAT TEXT 'APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 
END THE CONVERSATION ! 
* 
INPL EQU (S-INPDAT) *2 
* 
BADDAT TEXT 'AFORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER '! 
* 
BADDL EQU ($—BADDAT) *2 
* 
BADWHT TEXT '‘AUNEXPECTED WHAT RECEIVED FIELD! 
* 
WHTL EQU ($-BADWHT) *2 
* 
NOCHAR TEXT "'ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 
DEALOCATE THE CONVERSATION! ; 
* 
NOL EQU (S-NOCHAR) *2 
* ‘ 
MISMSL TEXT "ASYNC LEVEL MISMATCH, PLEASE CHANGE AND REASSEMBLE 
APPLICATION, APPLICATION ABORTED' 
MISL EQU (S-MISMSL) *2 
* 
END VR_02 END 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host-Initiated Session 
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TITLE VR_SUB,'85011511' SPI TAP SUBROUTINES. 


LIBM ‘'>>LDD>MACROS>MAC_USER' 


LIBM EXEC_LIB 
LIBM OS LIB 
SSVPB 
/ 
*& 
XVAL AP VPB,AP_ SBF 
* 
XDEF GTMEM 
GTMEM RESV 0 


* 
x 


*THIS IS THE GET MEMORY SUBROUTINE. 
& 


THE SIZE OF THE BLOCK OF MEMORY AND ITS SPACE INITIALIZATION VALUE 
ARE PROVIDED BY THE CALLER OF THIS SUBROUTINE. 


S$R6/$R7 -> THE SIZE OF THE BLOCK OF MEMORY TO BE OBTAINED 
SR5 -> THE SPACE INTIALIZATION VALUE FOR THE MEMORY BLOCK 


UPON EXIT FROM THIS SUBROUTINE, THE MEMORY BLOCK'S ADDRESS AND SIZE 
OR IF THERE WAS A PROBLEM, THE ERROR CODE ARE RETURNED TO THE CALLER. 


SB4 -> ADDRESS OF THE MEMORY BLOCK 
$R7 -> SIZE OF THE MEMORY BLOCK 
SR1 -> ERROR CODE 


e+ ete ee +e ee He HF He HF F 


SGMEM 


+ & 


CHECK FOR ERROR CODE RETURN FROM MACRO CALL 


* 


BEZ SR1,>+SC IF NO ERROR ON THE GET MEM, CONTINUE 
” UNABLE TO GET THE BLOCK OF MEMORY, RETURN WITH THE ERROR CODE IN SRI 


SA RESV 0 
* 


JMP SB5 RETURN TO THE CALLER 


- INITIALIZE THE BLOCK OBTAINED WITH THE PROVIDED VALUE ($R5) 
* 


CLRIT RESV 0 
SC RESV 0 
LDR SR2 ,=$R7 INIT. THE INDEX WITH THE SIZE OF TH 
LDB SB2 ,=SB4 MUST USE Bl, B2, OR B3 FOR B-REL.+INDEX 


Figure B-6. Subroutines for LU Type 6.2 Assembly 
Language Programs 
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bs THE BLOCK INITIALIZATION LOOP | 


SD 


+ 


+ % HF HH HN 


ASCII 


ASCI1 


STRASC 


/* 
PRTVRB 


OPCFND 
SA 


RESV 0 | . 
STR SR5 ,$B2.-SR2 STORE THE PROPER VALUE IN THE NEXT BLOCK 
BGZ $R2,>-$D THE INDEX IS ALSO THE NUMBER OF LOCATION 


END OF LOOP, BLOCK IS INTITIALIZED 


B >-SA RETURN TO THE CALLER WITH THE BLOCK 


CONVERT 1 HEX WORD TO 4 ASCII BYTES 


S$R7 = WORD TO CONVERT 

SR3 = OFFSET INTO MEMORY TO STORE CONVERTED VALUE 

$SB3 = BASE MEMORY ADDR OT STORE CONVERTED VALUE 

SR2 = # OF CHARS TO STORE 

EQU S$ | 

LDV SR2 ,3 # OF BYTES TO CONVERT -1l 

LDV $R6,0 | 

DIV SR7 ,=16 | | 

ADV SR6 ,=X'30' ADD ASCII BIAS 

CMR SR6 ,=X'003A' IS IT A THROUGH F ? 

BL '>STRASC IF NOT STORE IT 

ADV SR6 ,7 ADD ALPHA OFFSET 

STH SR6 ,$B3.-SR3 STORE STRING 

BDEC SR2,>ASCI1 

JMP SB5 RETURN TO CALLER 

XDEF PRTVRB 

RESV 0 

STB SB5 ,-$B7 SAVE RETURN ADDR ON STACK 

LDR $R2,$B4.VP_OPC GET OP CODE OF VERB WITH ERROR 
LBF =S$R2,=Z'F000'! CHANGE HIGH ORDER NIBBLE TO 0 
CMV SR2 ,=4 WAS IT A CONTROL TYPE VERB 

BNE >OPCFND IF FLASE SET TABLE 

LDR $R2,$B4.VP_CTL ELSE GET CONTROL TYPE 

LBF =$R2,=Z'F000' RESET HIGH ORDER NIBBLE 
LAB SB2,CTLTBL $B2 = TABLE TO SEARCH 

B >+SA 

LAB SB2 ,OPCTBL $B2 = TABLE TO SEARCH 
MLV $R2, TBLGTH SR2 = OFFSET INTO TABLE 
LAB $B3,$B6.AP SBF SB3 = ADDR OF TO BUFFER 
LDV SR3,0 SR3 = OFFSET INTO BUFFER 
LDV SR6,TBLGTH SR6 = # OF BYTES TO MOVE 
MMM 

LDR $R7,$B4.VP_RCD GET RETURN CODE 

LDV $R3 ,12 OFFSET TO STORE ASCII RETURN CODE 
LNJ $B5, ASCII TRANSLATE HEX TO ASCII 
LDR $R7,$B4.VP_WAR GET WHAT RECEIVED 

LDV SR3 ,18 OFFSET TO STORE ASCII WHAT RECEIVED 
LNJ $B5, ASCII TRANSLATE HEX TO ASCII 


Figure B-6 (cont). Subroutines for LU Type 6.2 Assembly 
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SUSOUT =$B3 ,=TBLGTH+2 


LAB SB4,SB6.AP VPB RESET $B4 TO VPB 
LDR $R1,$B4.VP RCD RESET S$R1 TO RETURN CODE 
LDB SB5 ,+SB7 RESTORE RETURN ADDR 
JMP SB5 RETURN TO CALLER 
* OP CODE TABLE 
OPCTBL RESV 0 
TEXT "'ASSALLO : 
TBLGTH EQU ($-OPCTBL) *2 
TEXT "AINVLD : 
TEXT "ASSSDAT ' 
CTLTBL RESV 0 
TEXT "ASSFLSH ' 
TEXT "ASSCONF : 
TEXT "ASSCNFD ' 
TEXT "ASSRTOS ' 
TEXT 'ASSSERR ' 
TEXT "'ASSPTOR ' 
TEXT 'ASSPONR : 
TEXT "ASSDEAL ' 
* 
END VR_SUB 


Figure B-6 (cont). Subroutines for LU Type 6.2 Assembly 
Language Programs 
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Appendix C 


SAMPLE COBOL 
PROGRAMS 


This appendix provides compilation listings of COBOL : 
programs. These programs demonstrate the use of AIF LU Type 0 
and LU Type 6.2 for both DPS 6- and Host-initiated sessions. 


Figure C-l is an AIF LU Type O sample program for a DPS 6- 
initiated session. Figure C-2 is an AIF LU Type 0O sample program 
for a Host-initiated session. 


Figure C-3 is an AIF LU Type 6.2 sample program for a DPS 6- 
initiated session. Figure C-4 is an AIF LU Type 6.2 sample 
program for a Host-initiated session. 
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PROGRAM-ID. LOSIC. 


REKEKEKEKKKEREKEKRKEEEKERREEEEREEEEKEKEEEEREKEEKEERERKREREEREKREKEEKEEKERREREREKKKEKER 


AIF LUO COBOL CALLS. 


TERMINAL.» 


+ ee FF ee OH OF 


HOST TRANSACTION ADLO. 
CONVERT IT TO EBCDIC, 
THEN RECEIVE THE RECORD BACK. 


THIS IS A SAMPLE LU 0 PROGRAM WHICH WILL EXERCISE SOME OF THE 
THE PROGRAM WILL START A SESSION WITH THE 


IT WILL READ DATA FROM THE TERMINAL, 


IF THE TERMINAL INPUT DATA STARTS WITH: END; 
PROGRAM WILL TERMINATE THE SESSION AND END, 
PROGRAM WILL GO THROUGH THE SAME PROCESS WITH WHAT HAS BEEN 
RECEIVED FROM THE TERMINAL. 


OTHERWISE, 


AND SEND THE CONVERTED RECORD TO THE HOST 
UPON RECEIVING THE DATA BACK, 

PROGRAM WILL COMPARE THE DATA THAT WAS RECEIVED WITH THE DATA 
SENT DIPLAYING A PROPER MESSAGE ON THE TERMINAL. 
CONVERT THE RECEIVED DATA TO ASCII AND DISPLAY 


THE 


IT ON THE 
THE 


* 

& 

* 

* 

* 

* 

IT WILL * 
* 

* 

THE * 
* 

* 

* 


KEKKEKEKEKREKRERE ERE KE REE REE REREREEREERERERREEREREREEEKREREREREEERKERKEER 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. LEVEL-6. 


OBJECT-COMPUTER. LEVEL-6. 
* 


* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
O1 START-OF-WS PIC X(32) 

VALUE 


77 SNA-WORK-AREA 

77 AIF-NODE-NAME 

77 REMOTE-LU-NAME 

77 STD-NAME 

77 SYNC~CALL 

77 ASYNC-CALL 

77 RESTART-SESSION 

77  NEW-SESSION 

77 SESSION-ID 

77  MSG-RESYNC-SEND-SQN 

77 MSG-RESYNC-RECV-SQN 

Ol SEND-DATA-BUFFER 

77 SEND-BUFFER-SIZE 

77 DATA-BUFFER-ALIGNMENT 

77 REPLY-REQUEST 

77  WHOLE-MSG-INDICATOR 

77 FMH-INDICATOR 

77 > RQD-INDICATOR 

01 RECEIVE-DATA-BUFFER. 
05 RECEIVE-RECORD 

77 RECEIVE-BUFFER-SIZE 

77 RECEIVED-DATA-LENGTH 

77 RECV-COMPLETE-MSG 

77  WORK-AREA-ID 

77 SEND-RESPONSE-TYPE 

77 SEND-SENSE-DATA 


Figure C-l. 


"START 


OF WORKING STORAGE SECTION". 
Ol AIF-—PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". 
X(200). 


PIC 


PIC 
PIC 


Sample COBOL Program 


Initiated Session 


X (8) 
X (8) 
XX 


if et ee ee 


U1 Cc O11 & 


Ree? 


5) 
5) 


MX OO OS OD OS OO DS WO OK WO WO OKO OO 
> 


. —_) 
Oo 
—_! 


for 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


"SMPLAIF"., 
"AO6CICS2". 


VALUE SPACES. 


<< 
Be 
aca 
PI by 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


80) VALUE SPACES. 


80. 
0. 
1 ae 


SPACES. 


ZEROS. 


LU Type 0 for DPS 6- 
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01 


05 
05 

77 

77 

77 

77 

O01 
05 
05 

y 

Ol 
05 
05 
05 
05 
05 
05 
05 
05 
05 

77 

77 

77 

Ol 

Figure C-] 


RETURN-CODE-VALUES. 


MAJ OR-RETURN-CODES. 
10 SESSION-ABORT 

88 SESSION-ABORTED 
10 STOP-RECEIVED 

88 SOPR-ISSUED-STOP 
10 INTERRUPT-RECVD 

88 INTERRUPT-RECEIVED 
10 SERV-REQ-CANCELLED 

88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE 

88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 

88 CALL-FORMAT-ERROR 
MINOR-RETURN-CODE 


INTERRUPT-TYPE 
INTERRUPT-DATA~LENGTH 
TERMINATE-TYPE 
GET-ATTR-TY PE 
SOPR-STOP-TIME. 


DATE-OF+STOP. 

10 STOP-YEAR 

10 STOP-MONTH 
10 STOP-DAY 
TIME-OF-STOP. 

10 STOP-HOUR 

10 STOP-MINUTE 
10 STOP-SECONDS 


RECEIVED-SENSE-DATA 
OUTPUT-CONTROL-WORD. 


REPLY-REQUEST-CD 
88 CHANGE-DIRECTION-RCVD 
DEF INI TE-RESPONSE-REQ 

88 DEFINITE-RESPONSE-RCVD 
LAST-MSG-EB 

88 MSG-WITH-EB-RECEIVED 
FMH- IN-RCVD-DATA 

88 RCVD-DATA-HAS-FMH 
BEGIN-MSG-RCVD-BC 

88 BEGIN-CHAIN-RCVD 
END-MSG-RCVD-EC 

88 END-CHAIN-RCVD 
SET-SEND-RECV-SEQ 

88 STSN-RECEIVED 
APPL-RESEND- REQUIRED 

88 RESTART-LAST-MSG-INB 
HOST-RESEND-REQUIRED 

88 RESTART-LAST-MSG-OUTB 


CONVERSION-LENGTH 
TRANSLATE~FROM- POSITION 
TRANSLATE-TO- POSITION 
END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS". 


PIC X VALUE "N". 
VALUE "Y", 

PIC X VALUE "N". 
VALUE "Y", 

PIC X VALUE "N", 
VALUE "Y", 

PIC X VALUE "N", 
VALUE "y", 

PIC X VALUE "N", 
VALUE "Y", 

PIC X VALUE "N". 
VALUE "Y", 

PIC 9(4) VALUE ZEROS. 
PIC 99 VALUE ZEROS. 
PIC 9(5) VALUE ZEROS. 
PIC X VALUE "N". 
PIC 99 VALUE O01. 
PIC 99, 

PIC 99. 

PIC 99. 

PIC 99, 

PIC 99, 

PIC 9(4). 

PIC X(8) VALUE ZEROS. 
PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "y",. 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y", 

PIC “Xe 

VALUE "Y", 

PIC X. 

VALUE "Y¥", 

COMP=1. 

COMP-1 VALUE 1. 
COMP-1 VALUE 1. 


(cont). Sample COBOL Program for LU Type 0 for 
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O01 MISC-PROGRAM-VARIABLES PIC X(26) VALUE 
"OTHER WORKING STORAGE DATA". 
01 DATA-TO-HOST PIC X(84) VALUE HIGH-VALUES. 
O01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
05 HOST-TRANSACTION PIC X(4). 
05 DPS6-DATA-RECORD. 


10 CHECK-INPUT-FIELD OCCURS 80 TIMES. 
15  DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 
10 DATA-FLD-CHAR PIC X. 
01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END". 
05 FILLER PIC X(77) VALUE SPACES. 
01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE l. 
05 INDX2 COMP-1 VALUE 0. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05  CALC-LENGTH COMP-1 VALUE ZEROS. 
05  TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL-SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-CHECK-SW PIC 9 VALUE 0. 
88 RECORD-CHECKED VALUE 1. 
05 NO-INPUT-SW PIC 9 VALUE 0. 
88 NO-INPUT-DATA VALUE 1. 
05 COMPARE-REC- SW PIC 9 VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE-TO-CHECK VALUE 1. 
05 INTERRUPT-SW PIC 9 VALUE 0. 


88 INTERRUPT-CALL~NEXT VALUE 1. 
O01 ENTER-MESSAGE PIC X(80) VALUE 
"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 
Ol END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
PROCEDURE DIVISION. 


DISPLAY "START OF LU 0 SAMPLE COBOL PROGRAM", 
KREKEKKEKKREKKEKKEKKEKEKEKEKREREKREREREKRERKREKEKERKEKKEKRKEKREKKEKEKEKRERKEKRKEKRKKRKKKKEKEE 
* START BY TRYING TO INITIATE A SESSION WITH THE HOST CICS * 
* SUBSYSTEM, “ 


KKK KKK EKER KKK EKER RE KR RIKKI KAKA 


PERFORM 100-INITIATE-SESSION THRU 100-EXIT. 
IF OK-TO-CONTINUE © 

NEXT SENTENCE 
ELSE 

GO TO 099-TERMINATE. 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 


DPS 6-Initiated Session 
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KKEKEKKEKEKEKKEKEKKEKEEEKREKKEKEEREKREEEEEEKKKEEKEEKKEEEKEEKRKEKEKEKEKKEKKKKEEKEESE 


sd IF THE SESSION IS INITIATED THEN WE CAN PROCEED WITH THE = 
> REMAINDER OF THE PROGRAM PROCESS. * 
KEKKKKKEKKEEKRKEE KEE ERE EE KK KEKE REE KREGER RERKKEEEKREKREEEKEREEKEKEREESK 
005-CONTINUE. 
MOVE "ADLO" TO HOST-TRANSACTION. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END-PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DPS6-DATA-RECORD. 
MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DPS6-DATA~ RECORD. 
MOVE O TO INDX1 
NO- INPUT— SW 
RECORD-CHECK~— SW 
SEND-BUFFER-SIZE. 
PERFORM 300-CHECK-TERMINAL-DATA THRU 300-EXIT VARYING INDX1 
FROM 1 BY 1 UNTIL RECORD-CHECKED. 
IF NO-INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
ELSE 
NEXT SENTENCE. 
MOVE DATA-TO-HOST TO SEND-DATA-BUFFER. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999- EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT. 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 
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0 20-CHECK-COMPARE. 
IF COMPARE-OK | 
DISPLAY "PROGRAM WILL CONTINUE" 
ELSE 
DISPLAY "CHECK PROGRAM LOGIC - SESSION WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 


STOP RUN. 
* 


* 
* 
100-INITIATE-SESSION. 
KRREEKKEEKEKKEKEKEKKEKREEKKEEAEKKEEEKKEKERKEKEEKEKEKREEEEREKEKEKKEKKKRKEKKRKEKEEK 
* THIS ROUTINE WILL ISSUE A CSINIT TO ATTEMPT TO START A * 
* SESSION WITH THE HOST CICS SUBSYSTEM. THIS CALL WILL BE * 
* MADE SYNCHRONOUSLY BECAUSE WE WANT TO MAKE SURE A SESSION * 
* IS AVAILABLE BEFORE ATTEMPTING TO START A PROGRAM TO * 
PROGRAM CONVERSATION WITH A HOST TRANSACTION. 
RREKEKEKKEKEKEEKEKKEKEKREEEKEKKEREEEEERRKEEKEREKRKEKKEKEEREKKEKKREKKKKEKKRKEKKESE 
*#****DISPLAY "GOING TO DO CSINIT NOW". 
CALL "CSINIT" USING SNA-WORK-AREA 

AIF-NODE-NAME 

REMOTE-LU-NAME 

STD-NAME 

SYNC-CALL 

NEW-SESSION 

SESSION-ID 

MSG-RESYNC-SEND- SQN 

MSG-RESYNC- RECV-SQN 

RETURN-CODE-VALUES 

INTERRUPT- TYPE 

SOPR-STOP-TIME 

RECEIVED-SENSE-DATA. 


* 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 
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KRKEKKKEKEEKEKEKEKKRKEEKKEEKRKEKREKKKEKREKEKEKEKRKEKKEKEKEKKEKREKKKERKKKEKEKKKKKEEKE 


* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRREKRKEKKEKKEKEEEKEKREKKKKEKRKEKEKEKRKKKKEEKEEKEEKEERKEKKKEEEKERKKEKRKKEKKKKKEKKKKEKSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSINIT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END - NO SESSION" 
GO TO 100-EXIT. 
DISPLAY "SESSION HAS BEEN ESTABLISHED - ID IS: " 
SESSION-ID. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
100-EXIT. 
EXIT, 
*EJECT 
200-GET-RECORD. 

MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
RKREKEEKKKEKKKEKEKKEKEEKKEEREKEKKEKEKKERRKKEKKEKKKKEKKKEREKKKEEKKEKKKEEEKKKKEKEKEESE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM, 
KRKEEEKEKEKEKKEERKEKEKEKKEREKEKKKEKEKEKREKRKKERKKKEKKRKEKRKEKEKEKKKEKKEKKKKEKRKEKKKKEKKEKEKEE 

DISPLAY ENTER-MESSAGE. 

ACCEPT DATA-FROM-TERMINAL. 

200-EXIT. 
EXIT, 
*SKIP3 
300-CHECK-TERMINAL-DATA. 
KREKKEKKEKEKEKKKEREKKEKEKKKEKREKKEKREEKKKRKEKEKRKEKKEREREKEKKKEEKEKERKEKKERREES 
* NOW CHECK THE INPUT FROM THE TERMINAL TO SEE IF ANY DATA 
* WAS ENTERED AND CALCULATE THE LENGTH OF THE DATA ENTERED 
* THEN CONVERT THE DATA TO EBCDIC. * 
KRRKEKEKKEKEKRKKEKEKKEKEEKRKEEKEREKRKEKEEKEKEKRKKEKEKKREKEKRKEKKEEKKKEKEKKKKKKKRKREKSE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-CHECK-SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
ADD 4 TO SEND-BUFFER-SIZE 
COMPUTE CONVERSION-LENGTH = SEND-BUFFER-SIZE 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE 
ADD 1 TO SEND-BUFFER-SIZE. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 


Figure C-l1 (cont). Sample COBOL Program for LU Type O for 
DPS 6-Initiated Session 
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KRREEKEKEKEEKKEREKEKEERKEEEEKEREKEREKEEEKEEEEEREEKREEREREEKEEKKEKEKEEEEEKKKEEKE 


* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
* FROM THE TERMINAL AND THE HOST TRANSACTION NAME TO EBCDIC * 
* BEFORE THE DATA IS SENT TO THE HOST CICS SYSTEM. * 
RKEEKKEEKRKEEEEEKEKEKEKEEEEEEEEREREREEEKEREREKEREREEREEEKERERKKREKEKEKEKE 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA-TO-HOST 
TRANSLATE-FROM- POSITION 
DATA-TO-HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
305-EXIT. 
EXIT, 
*EJECT 
400-SEND-RECORD. 
KREEEKEKEKEKEKEKEKEKKEKKEEEREREREEKKKEKEKRKEKEKEKKEKEKEKEKEKEKEKEKKKKKKEKKEKEKERKRE 
THIS ROUTINE WILL ISSUE THE CSSEND CALL TO SEND THE DATA 
TO THE HOST. THE FIRST FOUR BYTES OF THE DATA CONTAIN THE 
HOST CICS TRANSACTION CODE (ADLO) WHICH CAUSES CICS TO LOAD 
THE PROGRAM ASSOCIATED WITH THAT TRANSACTION AND BEGINS THE 
PROGRAM TO PROGRAM CONVERSATION, THIS CALL IS MADE 
SYNCHRONOUSLY SINCE THE DESIGN OF THE PROGRAMS IS TO SEND 
A MESSAGE THEN WAIT FOR THE RETURN MESSAGE. ALSO, THE 
* ENTIRE MESSAGE IS DELIVERED TO AIF, NOT MESSAGE SEGMENTS. 
KRREKEKKEKKEEKKEREKEKEEEKREREKEEKKEEKKEKEERKEKRKERERKEKEKEEKKEREKEKEEKKEKKEKKKKKKSE 
**k***DISPLAY "GOING TO DO CSSEND NOW". 
CALL "CSSEND" USING SNA-WORK-AREA 
SEND-DATA-BUFFER 
SEND-BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC-CALL 
REPLY-REQUEST 
WHOLE-MSG- INDICATOR 
FMH-INDICATOR 
| RQD- INDICATOR. 
REEKEKEKRKKEKERKEERKEKEKEKEEEKEEREEKEEREREKRERKEKRKREEKREREKKKKEKKKKKKEKRKESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
BRREKKEKEKKEKEKREKKREEKKEKERKKEKEKEKKEKKEKKEKEKEKEEEEKKEEKEKKKKRKRKKKK KKK ESK 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSEND REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
400-EXIT. 
EXIT, 
*EJECT 
500-RECEIVE-INFO. 


+ + FF OF OF 
+ et eH OH OF OH OF 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
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KEKEKEKKEKEKEKKEKEKEKKKEKREKEKEEKKEKKEKERKEKREREKEKKEKKEKKKKEKKEKEEEERKKEKKRKEEEKEEESE 


* THIS ROUTINE WILL ISSUE THE CSRECV CALL TO RECEIVE THE * 
* DATA FROM THE HOST TRANSACTION PROGRAM. THIS CALL IS MADE * 
* SYNCHRONOUSLY AND THE PROGRAM EXPECTS THE ENTIRE MESSAGE * 
* TO BE DELIVERED. * 
KKEKEKKKKKEKEKKEEKEKEEKEKEKEEKRRKKRKKKKEKKREEKRKRKEEKKERKEKEREKEEKKRKEEEKESE 
kk*EXEDTSPLAY "GOING TO DO CSRECV" 
CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC-CALL 
WHOLE-MSG- INDICATOR 
RECEIVED-DATA-LENGTH 
OUTPUT-CONTROL-WORD. 
KKEKKEKEKREKREEKKEKREKKKKRKKKEKEKEREKEKEEREEEKEKKEEKEEKERKEEKKERKKRRRKEREESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEKKEKKEKKEKEKKEKKKEEKKEKKEKKEKEKEKEKEKEREKEKERKEREREKERKERKREEKERKEKKEEEKEKEER 
PERFORM 900-CHECK-RETURN THRU 900-EXIT, 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-CHECK-STATUS-WORD. 
KKEKEKRKEKEKKKEKKKREKREKEKKKREEKEKEKRKERREKEREREEKEEEKEEREKEREKKEEEEKEERKEKKEKEEK 
* THIS ROUTINE WILL CHECK THE OUTPUT CONTROL WORD STATUS * 
* FIELDS TO DETERMINE WHAT CONTROL INFORMATION WAS RETURNED * 
* TO THE PROGRAM BESIDES THE DATA. THE CONTROL INFORMATION * 
x WOULD INDICATE ADDITIONAL PROCESSING THIS PROGRAM WOULD * 
* HAVE TO DO BEFORE CONTINUING NORMAL PROCESSING. THE * 
* DESIGN OF THE TWO COMPLEMENTARY PROGRAMS WOULD INDICATE * 
* WHETHER ANY SPECIAL PROCESSING, LIKE CHAINING OR DEFINITE * 
* RESPONSE, WOULD HAVE TO BE HANDLED. * 
KKEEKEKEKRKEKEKKEKKKEREKEKERREREEKEKEKEEERKEREKEREEREREEKEKEREREKEREEREREKEEE 
IF CHANGE-DIRECTION-RCVD 
DISPLAY "HOST PROGRAM IS WAITING TO RECEIVE NOW" 
ELSE 
NEXT SENTENCE. 
IF MSG-WITH-EB- RECEIVED 
DISPLAY "HOST TRANSACTION HAS ENDED —- PROGRAM CAN SEND" 
ELSE | 
NEXT SENTENCE. 
IF DEFINITE-RESPONSE-RCVD 
DISPLAY "HOST PROGRAM IS EXPECTING A RESPONSE" 
DISPLAY "ISSUE A CSSRSP CALL NEXT" 
ELSE 
NEXT SENTENCE. 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
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IF RCVD-DATA-HAS-FMH 
DISPLAY "DATA FROM HOST CONTAINS FMH INFORMATION" 
DISPLAY "CHECK THE FMH DATA BEFORE CONTINUING" 
ELSE 
NEXT SENTENCE. 
IF BEGIN-CHAIN-RCVD 
DISPLAY "HOST PROGRAM HAS SENT THE BEGINNING OF A CHAIN" 
DISPLAY " OF DATA - MULTIPLE RECEIVES MAY BE REQUIRED" 
ELSE 
NEXT SENTENCE. 
IF END-CHAIN-RCVD 
DISPLAY "LAST RECEIVE CALL HAS ENDED THE CHAIN" 
ELSE 
NEXT SENTENCE. 
500-EXIT. 
EXIT. 
* EJECT 
600-COMPARE-INOUT. 
KREEKEKEKEKKEKKEKEKERKKEKEREKREKKREKEEKREKEKKEREKRKEKEKEKEKEKEEKEEKERERKKERKKRKRKRKEE 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. 
RKRKEKRKEKEKKEKEKEEKERKEEREREEKEREKEEEEREKEKEKKEEKEEKEKEEKEKKERRKKKKKEEKKE REE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
COMPUTE SEND-BUFFER-SIZE = SEND-BUFFER-SIZE - 4. 
IF SEND-BUFFER-SIZE IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE © | 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" ° 
DISPLAY "SEND LENGTH: " SEND-BUFFER-SIZE 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
MOVE 0 TO COMPARE-REC-SW 
NUMBER-CHARS 
NO-MORE- SW 
INDX1. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA. 
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KAKEKKEKREKEKE KKK RE RE RE RE REE EERE RERERERERER EKER REREREREREREREEREKE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO 


* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. 


* 


KREKKEKKEKKEEKEKRKEKKREKEKERKEKREKREKKERKEKREKEKRKEKRKKEKEKKKERKRKEKERKKEKKKKKKEKK 


COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 


CALL "CSEBAC" USING SNA-WORK-AREA 
DATA-F ROM- HOST 
TRANSLATE-FROM- POSITION 
DATA-F ROM- HOST 
TRANSLATE- TO- POSITION 
CONVERSTION-LENGTH. 

IF CALL-~FORMAT-ERROR 


DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 


DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 


DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY DATA~FROM-HOST, 
600-EXIT. 
EXIT. 
*SKIP3 
700-GET-INTERRUPT-INFO. 


BRREKKEEKKEKKEKRKKEKKEKEKKEKKKERKEREEKREKEEKEKKEKKKKREKEREREKEKKREKKKKKKEKKKKKEKSE 


BE ISSUED BECAUSE A CSRI IS AN ASYNCHRONOUS CALL. 


THIS ROUTINE WILL ISSUE A CSRI CALL IN ORDER TO PICK UP THE 
LENGTH OF ANY INTERRUPT INFORMATION THAT IS BEING RETURNED 

TO THE PROGRAM. AFTER THIS CALL IS COMPLETED A CSWANY MUST 
A CSRECV 
WOULD BE ISSUED AFTER THAT IF THERE IS AN INTERRUPT MESSAGE 


+e + FF HF HF HF 


+ 


SOME INTERRUPTS MAY 


KREKEKKEKKKEKKKEKKEKEKEKRKEKREEKRREKKEREKRKKKRKKKREKKEKKEKREKKRKKEEKREREKRKKKEKEK 


TO PICK UP. THE INTERRUPT TYPE RETURNED ON THE ORIGINAL 
SESSION CALL WILL INDICATE WHAT FURTHER PROCESSING THE 
PROGRAM SHOULD DO NEXT. WE JUST DISPLAY ANY INFORMATION 
RETURNED TO THE PROGRAM THEN CONTINUE NORMAL PROCESSING. 


REQUIRE OTHER PROCESSING LOGIC. 


+ FF Ee He ee Oe 


*****DISPLAY "GOING TO ISSUE CSRI CALL NOW" 


CALL "CSRI" USING 


SNA-WORK~AREA 
INTERRUPT-DATA-LENGTH. 


KEKE KEKKKKKEKKEKKEEKERKKKKKEEEKKERKKKKKRKEKREKEKEKRKEKRKEKKKKKKREREKREKKKKKEKKEKER 


. CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 


i COMPLETED WITHOUT ANY ERRORS. = 
KEKE KK KKK KEKE KKK EKER ERR ERE RRR KK ERE RK REE RRR ERE EKRKREREKEEREE 


PERFORM 900-CHECK- 


IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 


RETURN THRU 900-EXIT. 


DISPLAY "ERRORS FROM CSRI - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 


Figure C-l (cont). 
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KRRERKEKKREKRKREKEKEKREKEEEKKEEERKERERKEEEEKEEKEEREEREKEEEEEKEREKEEREEKEKE 


. ISSUE THE CSWANY CALL TO FORCE THE PROGRAM TO WAIT FOR THE * 
x RETURN FROM THE CSRI CALL. — . 
KKKKK KKK EKER KERR ERE EKER ERE EEE RR EKER ERE EERE REKREEREREEREKKEKRES 


CALL "CSWANY" USING SNA-WORK-AREA. 
KRREEKKKEKEKEEREKREKREEKEREREEKERKEEREKEKEEEEKERERRKEKEEEKEREEKEEEEEKEKEKEKRKKEKSE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
EREKKEEREREEREEKEKEKEKEKEKEKEEEKEEKEREEKREEKEEEKEKEKEKEEKEKKKEKKRKEKKEKKRKRKKEK 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSWANY - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
IF INTERRUPT-DATA-LENGTH IS EQUAL TO ZERO 
DISPLAY "NO INTERRUPT MESSAGE RECEIVED - CONTINUE" 
GO TO 700-EXIT 
ELSE 
DISPLAY "NEED TO DO CSRECV FOR INTERRUPT MESSAGE". 
MOVE INTERRUPT-DATA-LENGTH TO RECEIVE-BUFFER-SIZE. 
CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFF ER-ALIGNMENT 
SYNC-CALL 
WHOLE-MSG- INDICATOR 
RECEIVED-DATA-LENGTH 
OUTPUT-CONTROL-WORD. 
KRKEEKKEKKEEKEKKEKKEKEEEEKREEKEKEKEKEKREEKEKEEKKRKEEKERKRKEKREKEKEREKEKKEREKKESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KEKEKEKEKKEKKKEKEKEKEEKREKEEKEREKRKEKEKEREREKKEEKKEKRERKEEEKEKERKEKKEEKKKRKKREKKRKKSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV (I) - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
KREKEEKEKKKEEREKEEKREEEKEAEEKEEEEKEEEKEEEKEE EERE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO #* 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KREKRKKEEKEKEEKEKEKRKEEEREEKEKKEKEEKRKEEKKERKEREKEREEKERERKKEKREEREKRREEERERKRKKRKES 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
TRANSLATE-FROM- POSITION 
RECEIVE-DATA-BUFFER 
TRANSLATE-TO- POSITION 
CONVERSION-LENGTH. 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 


05/86 


C-12 GR11-O1A 


IF CALL-~FORMAT- ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 

ELSE 
NEXT SENTENCE. 

DISPLAY "INTERRUPT INFORMATION IS: " RECEIVE-DATA-BUFFER. 


EXIT. 


* EJECT 


800-COMPARE-EACH-FIELD. 


IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 
ELSE 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC-SW. 
IF INDX1 IS EQUAL TO RECEIVED-DATA-LENGTH 
MOVE 1 TO NO-MORE- SW 
DISPLAY "END OF COMPARE" 
ELSE 
ADD 1 TO INDX2. 


800-EXIT. 


EXIT. 


*SKIP3 


900-CHECK-RETURN. 


KRREKKKKEKEKKEKKRKEKKEKEKKEEKRKEEKRKKKEEKRKKREKEKKEKEKREKREKKERERKKKEEKKEEKKERKREKKESE 


*k 
* 
* 
* 


THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS . 


AIF CALLS. A SWITCH IS SET TO INDICATE WHETHER THE CALL * 
WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
WILL BE DISPLAYED ON THE TERMINAL. . 


KEREKEKKEKEKKEEKRKEEKEKKKEKREEEEKKREKRKEREKKREEREKREKKKRKEKEKREKRKREEEREKRKKRKEKREEKKKEES 


MOVE 0 TO ERROR-IN-CALL-SW. 
IF CALL~FORMAT- ERROR 
MOVE 1 TO ERROR-IN-CALL-SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR- RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: " SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE, 
IF SESSION-ABORTED 
DISPLAY "LU SESSION HAS BEEN ABORTED - REINIT REQUIRED" 
MOVE 1 TO ERROR-IN-CALL— SW 
ELSE 
NEXT SENTENCE. 
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IF INTERRUPT-RECEIVED | 
DISPLAY "INTERRUPT FROM HOST OR AIF RECEIVED" 
DISPLAY "INTERRUPT TYPE IS: " INTERRUPT-TYPE 
" RECEIVED SENSE DATA IS: " RECEIVED-SENSE-DATA 
DISPLAY "DO A CSRI FOR ADDITIONAL INFORMATION" 
MOVE 1 TO INTERRUPT-SW 
ELSE 
MOVE 0 TO INTERRUPT-SW. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE, 
DISPLAY "SESSION CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE " MAJOR RETURN CODE IS: " 
MAJ OR-RETURN-CODES. 
MOVE 1 TO ERROR-IN-CALL-SW. 
900-EXIT, 
EXIT, 
*SKIP3 
999-END- PROGRAM. 
KRKKEEKEKKEKRERKEKEKREKKERKEEKEKREKREREREKKEKEEKEKREKREKREKRKREKRKEKERKKKKKKKKEKRE 
* THIS ROUTINE WILL BE USED TO ISSUE A CSTERM CALL TO END THE * 
* CONVERSATION WITH THE HOST TRANSACTION AND THE LU SESSION. * 
* 2A NORMAL TERMINATE IS ATTEMPTED FIRST BUT IF ERRORS ARE 
* RETURNED THEN AND ABNORMAL TERMINATE IS ATTEMPTED. * 
KEKKKEKEKRKEEKEKEKEKEKEEKEEKRKRERKERKEEKEERKEKRREERKEEKREKEEKRKEKEKEEKEKERKEKRREKKKKEEKRESE 
k****DTISPLAY "GOING TO TRY A NORMAL TERMINATE NOW". 
MOVE "N" TO TERMINATE-TY PE 
CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE. 
KRKEKEKEEKKKREKKEKEEKKEEEKEEKKEKKEEEKEEKEKEEREKEREEEREEKEKEKEKKEKKEKEKKKKKKRKKKEKRER 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRREKEKEKEEKREKKEKEKEKRKEREEKEKKEERKEEKERREKREEKEEKEREKEKEREEKKREKKEEREKKEKEEKREKEES 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "SESSION TERMINATION COMPLETE" 
GO TO 999-EXIT 
ELSE 
DISPLAY "ERRORS FROM CSTERM N - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE ABNORMAL TERMINATE". 
MOVE "A" TO TERMINATE-TYPE. 
CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE. 
999-EXIT, 
EXIT. 
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KRKEEKKEKEEKEKEKEKEREKEEKEEKEEKEEKEKKEEEREEEKEKKREREEKEREKRKEKEKEKKEKEKKEKRKKERKKKEKER 


ee FO ee OO OO 


KKEKKEEKEKKEKKKEKKEREKEEKREKREKEKKEKEEREKRKEKKEKKREKEEKEKEKEKKKKEEKKKEEKRKEEKEEKRKEKEEEKKEKEEER 


THIS IS A SAMPLE LU 0 PROGRAM WHICH WILL EXERCISE SOME OF THE 
AIF LUO COBOL CALLS. THE PROGRAM WILL START A SESSION WITH THE 
HOST TRANSACTION ADLO. IT WILL READ DATA FROM THE TERMINAL, 
CONVERT IT TO EBCDIC, AND SEND THE CONVERTED RECORD TO THE HOST 
THEN RECEIVE THE RECORD BACK. UPON RECEIVING THE DATA BACK, THE 
PROGRAM WILL COMPARE THE DATA THAT WAS RECEIVED WITH THE DATA 
SENT DIPLAYING A PROPER MESSAGE ON THE TERMINAL. IT WILL 
CONVERT THE RECEIVED DATA TO ASCII AND DISPLAY IT ON THE 
TERMINAL. IF THE TERMINAL INPUT DATA STARTS WITH: END; THE 
PROGRAM WILL TERMINATE THE SESSION AND END, OTHERWISE, THE 
PROGRAM WILL GO THROUGH THE SAME PROCESS WITH WHAT HAS BEEN 
RECEIVED FROM THE TERMINAL. 


ee ee ee ee | 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER,. LEVEL-6. 
OBJECT-~COMPUTER. LEVEL-6. 


* 
* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 


O01 


Ol 
17 
77 
77 
77 
77 
77 
ri 
77 
77 
77 
77 
01 
77 
77 
77 
77 
77 
77 
01 


77 
77 


START-OF-WS PIC X(32) 

VALUE "START OF WORKING STORAGE SECTION". 
AIF-PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". 
SNA-WORK- AREA PIC X(200). 

AIF-NODE- NAME PIC X(8) VALUE "SMPLAIF". 
REMOTE-LU-NAME PIC X(8) VALUE "AO6CICS2". 
STD-NAME PIC XX VALUE "BB". 
SYNC-CALL PIC X VALUE "S". 
ASYNC-CALL PIC X VALUE "A". 
RESTART-SESSION PIC X VALUE "R". 
NEW-SESSION PIC X VALUE "N". 
SESSION-ID PIC X(4) VALUE SPACES. 
MSG~ RESYNC-SEND-SQN PIC 9(5) VALUE ZEROS. 
MSG-RESYNC-RECV-SQN PIC 9(5) VALUE ZEROS. 
SEND-DATA-BUFFER PIC X(84) VALUE SPACES. 
SEND-BUFFER-SIZE PIC 9(5) VALUE ZEROS. 
DATA~BUFFER-ALIGNMENT PIC X VALUE "L". 
REPLY-~REQUEST PIC X VALUE "R". 
WHOLE-MSG- INDICATOR PIC X VALUE "Y", 

FMH- INDICATOR PIC X VALUE "N". 
RQD-INDICATOR PIC X VALUE "N". 
RECEIVE-DATA-BUFFER. 

05 RECIEVE-TRAN PIC X(4) VALUE SPACES. 


05 RECEIVE-RECORD 
RECEIVE-BUFFER-SIZE 
RECEIVED-DATA-LENGTH 


Figure C-2. 


X(80) VALUE SPACES. 
9(5) VALUE 84. 
9(5) VALUE 0. 
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77 
77 
77 
77 
01 


77 
77 
77 
77 
01 


77 
01 


77 
77 


Figure C-2 (cont). 


RECV-COMPLETE-MSG 
WORK-AREA-ID 
SEND-RESPONSE- TYPE 
SEND-SENSE-DATA 
RETURN-CODE-VALUES. 
05 MAJOR-RETURN-CODES. 
10 SESSION-ABORT 
88 SESSION-ABORTED 
10 STOP-RECEIVED 
88 SOPR-ISSUED-STOP 
10 INTERRUPT-RECVD 
88 INTERRUPT-RECEIVED 
10 SERV-REQ-CANCELLED 
88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE 
88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 
88 CALL-FORMAT-ERROR 
05 MINOR-RETURN-CODE 
INTERRUPT-TY PE 
INTERRUPT-DATA- LENGTH 
TERM INATE-TY PE 
GET-ATTR-TYPE 
SOPR-STOP-TIME. 
05 DATE-OF-STOP. 
10 STOP-YEAR 
10 STOP-MONTH 
10 STOP-DAY 
05 TIME-OF-STOP. 
10 STOP-HOUR 
10 STOP-MINUTE 
10 STOP-SECONDS 
RECEIVED-SENSE-DATA 
OUTPUT-CONTROL-WORD. 
05 REPLY-REQUEST-CD 
88 CHANGE-DIRECTION-RCVD 
05 DEFINITE-RESPONSE-REQ 
88 DEFINITE-RESPONSE-RCVD 
05 LAST-MSG-EB 
88 MSG-WITH-EB-RECEIVED 
05 FMH-IN-RCVD-DATA 
88 RCVD-DATA-HAS-FMH 
05 BEGIN-MSG-RCVD-BC 
88 BEGIN-CHAIN-RCVD 
05 END-MSG-RCVD-EC 
88 END-CHAIN-RCVD 
05 SET-SEND-RECV-SEQ 
88 STSN-RECEIVED 
05 APPL-RESEND-REQUIRED 
88 RESTART-LAST-MSG-INB 
05 HOST-RESEND-REQUIRED 
88 RESTART-LAST-MSG-OUTB 
CONVERSION-LENGTH 
TRANSLATE-FROM- POSITION 


VALUE 


PIC X we ae 
PIC X(4) VALUE SPACES. 
PIC X VALUE "-", 
PIC X(8) VALUE ZEROS. 
PIC X VALUE "N", 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N", 
VALUE "Y". 

PIC X VALUE "N", 
VALUE "Y", 

PIC X VALUE "N". 
VALUE "Y", 

PIC 9(4) VALUE ZEROS. 
PIC 99 VALUE ZEROS. 
PIC 9(5) VALUE ZEROS. 
PIC X VALUE "N", 
PIC 99 VALUE Ol. 
PIC 99.. 

PIC..99% 

PIC 99. 

PIC 99, 

PIC 99. 

PIC 9(4) 

PIC X(8) VALUE ZEROS. 
PIC X. 

VALUE "Y". 

PIC X, 

VALUE "Y". 

PIC X, 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y"., 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y", 

COMP-1. 

COMP-1 VALUE l. 


Sample COBOL Program for LU Type O for 
Host-Initiated Session 


05/86 
GR11-O1A 


77 TRANSLATE-TO- POSITION COMP-1 VALUE 1. 
Ol END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS", 
O01 MISC-PROGRAM-VARIABLES PIC X(26) VALUE 
"OTHER WORKING STORAGE DATA", 

Ol DATA-TO-HOST PIC X(84) VALUE HIGH-VALUES. 
O01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 

05 HOST-TRANSACTION PIC X(4). 

05 DPS6-DATA-RECORD. 

10 CHECK-INPUT-FIELD OCCURS 80 TIMES. 


15 DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 
10 DATA-FLD-CHAR PIC X. 
01 DATA-FROM-TERMINAL. | 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END", 
05 FILLER PIC X(77) VALUE SPACES, 
01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE 1. 
05 INDX2 COMP-1 VALUE 0. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL- SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-CHECK-SW PIC 9 VALUE 0. 
88 RECORD-CHECKED VALUE 1. 
05 NO-INPUT-SW PIC 9 VALUE 0. 
88 NO-INPUT-DATA VALUE 1. 
05  COMPARE-REC- SW PIC 9 — VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE-TO-CHECK VALUE 1. 
05 INTERRUPT- SW PIC 9 VALUE 0. 


88 INTERRUPT-CALL-NEXT VALUE 1. 
01 ENTER-MESSAGE PIC X(80) VALUE 
"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 
01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
LINKAGE SECTION. 


77 NODE-NAME PIC X(8). 
77 STD PIC XX. 
77 BASE-LEVEL PIC 99. 


PROCEDURE DIVISION USING NODE-NAME 
STD 
BASE~LEVEL. 
000-BEGIN. 
DISPLAY "START OF LU 0 SAMPLE COBOL 
MOVE NODE-NAME TO AIF-NODE-NAME. 
MOVE STD TO STD-NAME. 
DISPLAY "AIF NODE IS: 


PROGRAM", 


" NODE-NAME " STD IS: " STD. 
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KKK KEK KEKE REE REE IKKE KEKE REI REE EEERERERKEEEERKEREEREEKEEKEKES 


* START BY TRYING TO ATTACH TO A SESSION THAT WAS STARTED BY * 
* THE HOST CICS TRANSACTION ADLH. * 
KEKEKEKEKEKEEKEEEEEKEEREEEREEREERERREEEKEREREREKRRRERKEEREERREREREEEEEEE 
PERFORM 100-ACCEPT-SESSION THRU 100-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 


GO TO 099-TERMINATE. 
KKKEKKKEE KEKE KKK KEKE KER ERE ERE ERE REE RE REE REERERKEEREREREEEEREKEEKRES 


* IF THE SESSION IS CONNECTED THEN WE MUST ISSUE A RECEIVE * 
= CALL SINCE A HOST INITIATED PROGRAM COMES UP IN RECEIVE = 
- STATE TO RECEIVE AT A MININUM THE TRANSACTION NAME SENT * 
ig BY THE HOST. . 


RKEKRKEKKEEKEEREEKRKEEEEERRKEEKEEREEREREKEKKEKREEKRREKEERKEERERKEERKREKRRKKKRKKKKSE 


PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "INITIAL CSRECV PROBLEM - PROGRAM WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
KKEKKKEKEKEKEKKEKREKKKEKEKREEEKREREKREREEEKREKEKEKEKEKREREREKKEKREKEKKEKKEKEKRERSE 
* IF THE SESSION IS CONNECTED THEN WE CAN PROCEED WITH THE * 
* REMAINDER OF THE PROGRAM PROCESS. * 
KREKKKEKKEKKKEKEKEKEKREREKEEKEEKREEKKEKEEEREEREEKEKEEEKRKEEKKKEEKRKKEREKEKKEKRKEKE 
005-CONTINUE. 
MOVE "ADLH" TO HOST-TRANSACTION. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END-PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DPS6-DATA-RECORD. 
MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DPS6-DATA-RECORD. 
MOVE 0 TO INDX1 
NO- INPUT- SW 
RECORD-CHECK- SW 
SEND-BUFFER-SIZE. 
PERFORM 300-CHECK-TERMINAL-DATA THRU 300-EXIT VARYING INDX1 
FROM 1 BY 1 UNTIL RECORD-CHECKED. 
IF NO-INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
ELSE 
NEXT SENTENCE. 
MOVE DATA-TO-HOST TO SEND-DATA-BUFFER. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
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IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT. 
0 20-CHECK—-COMPARE. 
IF COMPARE-OK 
DISPLAY "PROGRAM WILL CONTINUE" 
ELSE 
DISPLAY "CHECK PROGRAM LOGIC - SESSION WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-~NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 


STOP RUN. 
* 


* 
* 


100-ACCEPT-SESSION. 
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KRREEKEEREEKREREKEKRKEEEEEEKKEEKREEREEKRRERREEREERREREEKEEKEKEKKEKKKKKRKEKKEKS 


- THIS ROUTINE WILL ISSUE A CSACPT TO ATTEMPT TO CONNECT TO id 
= AN AIF SESSION THAT HAS A BIND PENDING FROM CICS. THIS CALL* 
ig IS ALWAYS MADE SYNCHRONOUSLY. . 
KREKEKEKEKEKKEKEKEREKEKREKEREKEKEREKEERREEKRERRERKKKRREKEKKEKREKEEKKRKKKRKKKEESE 
DISPLAY "GOING TO DO CSACPT NOW". 
CALL "CSACPT" USING SNA-WORK-AREA 
AIF-NODE-NAME 
REMOTE- LU-NAME 
STD-NAME 
SYNC-CALL 
NEW- SESSION 
SESSION-ID 
MSG-RESYNC-SEND- SQN 
MSG- RESYNC- RECV-SQN 
RETURN-CODE-VALUES 
INTERRUPT-TYPE 
SOPR-STOP-TIME 
RECEIVED-SENSE-DATA. 
KREKRKEKEKEKEKKREKREKRERKRKRKKEKERKEKKEKEKEREKEKKEKKEKEKEKRKEKEKEKKEKKEKKKKEKEK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRREKKEKKKEKEEKEKEKEKREKEKERKRKEKEKEKRKEKKEKRKEERERKEKEKERKEKEKKEKEEKEKEKKKKKKKKREK 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSINIT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END —- NO SESSION" 
GO TO 100-EXIT. 
DISPLAY "SESSION HAS BEEN ESTABLISHED - ID IS: " 
SESSION-ID. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE, 
LOO-EXIT. 
EXIT. 
*EJECT 
200-GET-RECORD. 
MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
KEKE EKRERKREKEKEKRKEKRKRRKREKRKRKRKEKEKKRKEKKKRKKKKKRKEKEKSE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. * 
KREKKEKEKKEKEKEKRKEKRKERERKREKEKEEKERKEKEKEEKEKKRREKEKREKEKREKKEKKERKEKKKEKEKKEKEEKESR 
DISPLAY ENTER-MESSAGE. 
ACCEPT DATA-FROM-TERMINAL. 
200-EXIT. 
EXIT. 
*SKIP3 
300-CHECK-TERMINAL-DATA, 
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KRHEKEKKKEKEKEKKKKEEKKEKKEKEKKKEEKKKEERKKREKRKEKEEKKEEREKEKREEKREKKEKKEKEKKEKKEKKSE 


* NOW CHECK THE INPUT FROM THE TERMINAL TO SEE IF ANY DATA * 
* WAS ENTERED AND CALCULATE THE LENGTH OF THE DATA ENTERED * 
* THEN CONVERT THE DATA TO EBCDIC. * 
KEKKKKKEKKEKKKEEKRERKERKEKEKEKEEKEKEKEEKKEEKKEKEKKREKRKEERKEKERKEKEKKEERKEKKSE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-CHECK-SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
COMPUTE SEND-BUFFER-SIZE = SEND-BUFFER-SIZE + 4 
COMPUTE CONVERSION-LENGTH = SEND-BUFFER-SIZE 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE | 
ADD 1 TO SEND-BUFFER-SIZE. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 
BRKEKKEKKEKKEKEKKEKEKKEKEKEKEKKREREKEKKEKEKKEEKEKREEKEREKKEKEKEKEKKEKEKSE 
* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
* FROM THE TERMINAL AND THE HOST TRANSACTION NAME TO EBCDIC * 
* BEFORE THE DATA IS SENT TO THE HOST CICS SYSTEM. 
KEKKKEEKEKEKKEKKKKKKEKKKKEKEKEKKEKEKEKEKKKEKKEKKEKEKKKERKEKREREKKEKEKEKKEEKKEKREE 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA-TO-HOST 
TRANSLATE-F ROM- POSITION 
DATA-TO-HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL-SW 
ELSE 
NEXT SENTENCE. 
305-EXIT. 
EXIT. 
*EJECT 
400-SEND-RECORD. 
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KRKEEKEKEKEKEKEEKEREKEKEKEKEEKEREKEKEKRKEEKEEKERKREKREKEREREEREKREEEREEREKKRERKKEKKEKREE 


THIS ROUTINE WILL ISSUE THE CSSEND CALL TO SEND THE DATA 
TO THE HOST, THE FIRST FOUR BYTES OF THE DATA CONTAIN THE 
HOST CICS TRANSACTION CODE (ADLO) WHICH CAUSES CICS TO LOAD 
THE PROGRAM ASSOCIATED WITH THAT TRANSACTION AND BEGINS THE 
PROGRAM TO PROGRAM CONVERSATION. THIS CALL IS MADE 
SYNCHRONOUSLY SINCE THE DESIGN OF THE PROGRAMS IS TO SEND 
A MESSAGE THEN WAIT FOR THE RETURN MESSAGE. ALSO, THE 
* ENTIRE MESSAGE IS DELIVERED TO AIF, NOT MESSAGE SEGMENTS. 
KKEKREKEKEKEKEKKEKREKRKERKEEKEEREKEREKEREKEKERKEREREREKEKEREREKRERKEKEKRRKEKREKRSE 
****x*DISPLAY "GOING TO DO CSSEND NOW". 
CALL "CSSEND" USING SNA-WORK-AREA 
SEND-DATA-BUFFER 
SEND-BUFFER-SIZE 
DATA-BUFFER~ALIGNMENT 
SYNC- CALL 
REPLY-REQUEST 
WHOLE-MSG- INDICATOR 
FMH- INDICATOR 
RQD- INDICATOR. 
KREKEKEKEEEEKEERKEEEKEKEKKEEEKERERKERKERKEKKREKEREREREKEKEEKEKRKEKEKKKREKKEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEKEKKERKEKEEKEKEEREEKEKEEEKEKRERKKEREEKKREKKRKEKEREKRKEKRKEEKEKERKRKRKKEKKKKKREKEE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSEND REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
400-EXIT. 
EXIT. 
* EJECT 
500-RECEIVE-INFO. 
REKEKEKEKEKEEKERKEKRKEKRKEREEKREKREKEKKKEREKEKRKKRERKERKEKREREKRRKEKKEEKEKREREESE 
* THIS ROUTINE WILL ISSUE THE CSRECV CALL TO RECEIVE THE x 
* DATA FROM THE HOST TRANSACTION PROGRAM. THIS CALL IS MADE * 
*  SYNCHRONOUSLY AND THE PROGRAM EXPECTS THE ENTIRE MESSAGE #* 
* TO BE DELIVERED. * 
KREKKEKREKEKEKKEKEKKEKEERKEKEKKEEKEKEKEKERKEEREEKEEKREKEEKEKEEREEKERKEEKEKEREKEEEEESE 
*****DISPLAY "GOING TO DO CSRECV" 
CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC- CALL 
WHOLE-MSG- INDICATOR 
RECEIVED-DATA-LENGTH 
OUTPUT-CONTROL-WORD. 


+ oF Fh Oe OF 
+ FF FF Oe OH OF 
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KREKKKEKEKRKEEKKEKKREKKEKEEKKEEREKKEREKKEKERKEKEEKEKERKEKERKKEEKEKKEEKERKKEKREKKEK 


* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KEKKEKKKEREKREKEEEEKEKEEKEEKEREKKKKEKEREKERKEKEREEKKKEEKEKKEEKEKEEKKEEEE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-CHECK-STATUS-WORD. 
KKKEKEKKEEKKEEKEKEKKERERREKEKEKEREKEKEEKREKEKEEKEKEKKEEKRKEKKEKEKKEKKKEKKEKKESE 
* THIS ROUTINE WILL CHECK THE OUTPUT CONTROL WORD STATUS * 
* FIELDS TO DETERMINE WHAT CONTROL INFORMATION WAS RETURNED * 
* TO THE PROGRAM BESIDES THE DATA. THE CONTROL INFORMATION * 
* WOULD INDICATE ADDITIONAL PROCESSING THIS PROGRAM WOULD * 
* HAVE TO DO BEFORE CONTINUING NORMAL PROCESSING. THE * 
* DESIGN OF THE TWO COMPLEMENTARY PROGRAMS WOULD INDICATE * 
* WHETHER ANY SPECIAL PROCESSING, LIKE CHAINING OR DEFINITE * 
* RESPONSE, WOULD HAVE TO BE HANDLED. 
KKEKEKKKEKKEKKKEKEEKKEKEKEREKKEKEKREEEKRKEEKEKKEKKEEKKREKRKEKEREKKKKKKRKKKRKKKKKK 
IF CHANGE-DIRECTION-RCVD 
DISPLAY "HOST PROGRAM IS WAITING TO RECEIVE NOW" 
ELSE 
NEXT SENTENCE. 
IF MSG-WITH-EB- RECEIVED © 
DISPLAY "HOST TRANSACTION HAS ENDED - PROGRAM CAN SEND" 
ELSE 
NEXT SENTENCE. 
IF DEFINITE-RESPONSE-RCVD 
DISPLAY "HOST PROGRAM IS EXPECTING A RESPONSE" 
DISPLAY "ISSUE A CSSRSP CALL NEXT" 
ELSE 
NEXT SENTENCE. 
IF RCVD-DATA-HAS-FMH 
DISPLAY "DATA FROM HOST CONTAINS FMH INFORMATION" 
DISPLAY "CHECK THE FMH DATA BEFORE CONTINUING" 
ELSE 
NEXT SENTENCE, 
IF BEGIN-CHAIN-RCVD 
DISPLAY "HOST PROGRAM HAS SENT THE BEGINNING OF A CHAIN" 
DISPLAY " OF DATA - MULTIPLE RECEIVES MAY BE REQUIRED" 
ELSE 
NEXT SENTENCE. 
IF END-CHAIN-RCVD 
DISPLAY "LAST RECEIVE CALL HAS ENDED THE CHAIN" 
ELSE 
NEXT SENTENCE. 
500-EXIT. 
EXIT. 
* EJECT 
600-COMPARE-INOUT. 
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KREKEKEKKEKEKKEEKKEKEEKREKKEKEKERERKREKREKRERREEREEKKEKRRRERKEREREREKEEEKEEEEKEER 


* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME * 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. * 
KREEKKKEEKREKRKKEKRERAEKEEERERKEREEEREKREKKEEERKEEERERREEREREREREREREEEREEE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF SEND-BUFFER-SIZE IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " SEND-BUFFER-SIZE 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
MOVE 0 TO COMPARE-REC- SW 
NUMBER-CHARS 
NO-MORE- Sw 
INDX1. 
COMPUTE RECEIVED-DATA-LENGTH = RECEIVED-DATA-LENGTH - 4. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". | 
605-CONVERT-DATA. 
KKEEKKEKKKEKKERKKKEKEKEKKKKEKAEKREKEKRREERKE KEKE KKEREEKRERKEEEREKKREKRKEREKRKEEERSE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KEKEKKKEKEKEKREKEKEKEKEREKEEREREKKRKEKEKEEKEKREEEEKKEEREKKEKRKEEREKEEKREEREEEKREESE 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH + 4. 
CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
TRANSLATE-F ROM- POSITION 
RECEIVE-DATA-BUFFER 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT~ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE, 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY RECEIVE-RECORD. 
600-EXIT. | 
EXIT. 
*SKIP3 
700-GET- INTERRUPT-INFO. 
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KREKKKEKEKRKREKRKKKEKEKEKEKREKKERERKERKEKEEKEKKEKEKEKEKRKEKKEKKRKKKEKKEKKKEKREKRKKREEK 


THIS ROUTINE WILL ISSUE A CSRI CALL IN ORDER TO PICK UP THE 
LENGTH OF ANY INTERRUPT INFORMATION THAT IS BEING RETURNED 
TO THE PROGRAM. AFTER THIS CALL IS COMPLETED A CSWANY MUST 
BE ISSUED BECAUSE A CSRI IS AN ASYNCHRONOUS CALL. A CSRECV 
WOULD BE ISSUED AFTER THAT IF THERE IS AN INTERRUPT MESSAGE 
TO PICK UP, THE INTERRUPT TYPE RETURNED ON THE ORIGINAL 
SESSION CALL WILL INDICATE WHAT FURTHER PROCESSING THE 
PROGRAM SHOULD DO NEXT. WE JUST DISPLAY ANY INFORMATION 
RETURNED TO THE PROGRAM THEN CONTINUE NORMAL PROCESSING. 
* SOME INTERRUPTS MAY REQUIRE OTHER PROCESSING LOGIC. 
KEKEKKKEEKEKRKEKEKRKEEKRREREKRKERKRKRRERKERERKKRERKEKREERKERKKRKKEKKEEKKREREKRSE 
*****DISPLAY "GOING TO ISSUE CSRI CALL NOW" 

CALL "CSRI" USING SNA-WORK-AREA 

INTERRU PT-DATA-LENGTH. 

KREKKEKKEEKEKKEKKKEKEERERKEKEKKREKERKEEKKKEKEKRREKRKKEKRERKKKREKRKEKREKEKKEEKRKEKEKKEESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. . 
RKEKEKKEKKEEKKREEKREEKRKREKEKEKKEKRERKEEEEKRKEKKEREKKEKKEEKRKRREKRKKEKKRERREKKEEKSE 

PERFORM 900--CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 

ELSE 

DISPLAY "ERRORS FROM CSRI - CHECK RETURN CODES" 

DISPLAY "PROGRAM WILL TERMINATE" 

GO TO 700-EXIT. 
RKEKEKEKKEKEKRKEKEEKRKEEKERKEEKEKRKEKEKEEKKEKREKKKKEKEKEKEREKEKKEEKEKRKEKKREKRKKEKKEKEKEKKEES 
* ISSUE THE CSWANY CALL TO FORCE THE PROGRAM TO WAIT FOR THE * 
* RETURN FROM THE CSRI CALL. * 
KREKEKKRKEKRKEKRKEREKRERKEKRKREKREREKKRKEREKREKEKEKEEKREEKREKKEKREKEKKEEEKREKEREKKEESE 


CALL "CSWANY" USING SNA-WORK-AREA. 
KEKEKKEKEKEKEKKEKEKERKEEKEKRKERKEKEKREKRKEEKRKRKRKRERERKKEKEKKRKEKEKKRRKKEKKEKKEKRKKRKEKESR 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS, | * 
KREKKEKKEKKEKREKKEKEKEKERKRKEKEKEKEKREKRKEKEKRERKKRKEEKKEEKEEKEKREKREKERKREKKEER 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSWANY - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
IF INTERRUPT-DATA-LENGTH IS EQUAL TO ZERO 
DISPLAY "NO INTERRUPT MESSAGE RECEIVED - CONTINUE" 
GO TO 700-EXIT 
ELSE 
DISPLAY "NEED TO DO CSRECV FOR INTERRUPT MESSAGE". 
MOVE INTERRUPT-DATA-LENGTH TO RECEIVE-BUFFER-SIZE. 


a a ee ee es 
FF FH HF HO OH OF 
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CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFF ER-ALIGNMENT 
SYNC-CALL 
WHOLE-MSG- INDICATOR 
RECE IVED-DATA- LENGTH 
OUTPUT-CONTROL-WORD. 
KEKKEKEKEKKEKEKKEKKEKEKKEEKKEEEEKEKKEEKREEEEKEEKKKEKEEREKKEEKERKEKEKKKREKRKEKKKKKEKKESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREKKKREREEKEKERKEREREKEREEKEKEEREREEREEEEEKEKERKEREEKKEREKEKEKEEKKEKKKERSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 

DISPLAY "ERRORS FROM CSRECV (I) - CHECK RETURN CODES" 

DISPLAY "PROGRAM WILL TERMINATE" 

GO TO 700-EXIT. 
KEKKKEEKRKEKKEEKKEKEEKKEEKEKEEKEKEEKEREKEEKERKEREEKREKRKEKEKKEKKEKEKRKREKEKEERSE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO +#* 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KREKRKEKKEKKEKEEKEKEKEKEEKKEKEREREEKEEKEREKKEREKEREKEEKEEKEKEKKKKERREKEKEKKKKKKEKREK 

COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 

CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA- BUFFER 
TRANSLATE-FROM- POSITION 
RECEIVE-DATA- BUFFER 
TRANSLATE- TO- POSITION 
_ CONVERSION-LENGTH. 

IF CALL-FORMAT-ERROR 

DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 

DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 

DISPLAY "PROGRAM WILL TERMINATE" 

MOVE 1 TO ERROR-IN-CALL- SW 

GO TO 600-EXIT 

ELSE 

NEXT SENTENCE. 
DISPLAY "INTERRUPT INFORMATION IS: " 
RECEIVE-DATA-BUFFER. 

700-EXIT. 

EXIT. 
*EJECT 
800-COMPARE-EACH-FIELD. 

IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 

ADD 1 TO NUMBER-CHARS 

ELSE 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC- SW. 
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IF INDX1 IS EQUAL TO RECEIVED-DATA-LENGTH* 
MOVE 1 TO NO-MORE- SW 
DISPLAY "END OF COMPARE" 
ELSE 
ADD 1 TO INDX2. 
800-EXIT. 
EXIT, 
*SKIP3 
900-CHECK-RETURN. 
KREKKEKEREKEKEEKEKERERERKEKEKEEEKERKKKEKEEKEKEREKEKEEKRKEEKKEKEKKEKKEKEKEK 
* THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS * 
* AIF CALLS. A SWITCH IS SET TO INDICATE WHETHER THE CALL * 
* WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY + 
* WILL BE DISPLAYED ON THE TERMINAL. 
KREKKEKEKKEKKKEEKEKEKKEEKEKEEEEKKEKEKEKKEEREEEKEKKERKEKEEKKKKEEKKEEKEEKKEKKEKKEE 
MOVE 0 TO ERROR-IN-CALL-SW. 
IF CALL-FORMAT- ERROR 
MOVE 1 TO ERROR-IN-CALL-SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR-RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: " SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE, 
IF SESSION-ABORTED 
DISPLAY "LU SESSION HAS BEEN ABORTED - REINIT REQUIRED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
IF INTERRUPT RECEIVED 
DISPLAY "INTERRUPT FROM HOST OR AIF RECEIVED" 
DISPLAY "INTERRUPT TYPE IS: " INTERRUPT-TYPE 
" RECEIVED SENSE DATA IS: " RECEIVED-SENSE-DATA 
DISPLAY "DO A CSRI FOR ADDITIONAL INFORMATION" 
MOVE 1 TO INTERRUPT-SW 
ELSE 
MOVE 0 TO INTERRUPT-SW. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. | 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE " MAJOR RETURN CODE IS: " 
MAJ OR-RETURN-CODES. 
MOVE 1 TO ERROR-IN-CALL-SW. 
900-EXIT. 
EXIT. 
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*SKIP3 
999-END- PROGRAM. 
KR RRR KERR EK ERIE EERE REE REE EKEEKKEK EEK EEE ERE REE REREEEEEEE 
* THIS ROUTINE WILL BE USED TO ISSUE A CSTERM CALL TO END THE * 
* CONVERSATION WITH THE HOST TRANSACTION AND THE LU SESSION. * 
* AN ABNORMAL TERMINATE IS DONE SINCE THE HOST TRANSACTION * 
* IS DESIGNED TO NOT END THE BRACKET. * 
KRKEEKKKEKEEKEKRKEKKEKEKEKEKERKKEEKEKEKREKEKEKEKKEREREREKEEREERERERREEKKEE 
*****DISPLAY "GOING TO TRY A NORMAL TERMINATE NOW". 
MOVE "A" TO TERMINATE-TYPE — 
CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TY PE, | : 
REKKKKEKRKRKKEKEREKEEKEREREEEEEEEEEREEEEEEREREKEREERERERREKREREREREEEEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRKEKEKKEKEKEKREKRKEREKRKEKEKRKEREKEKEKEEKEKKEKEREKREEKREKEEKEEREEEKRREKREKEKRKEKREK 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "SESSION TERMINATION COMPLETE" 
GO TO 999-EXIT 
ELSE 
DISPLAY "ERRORS FROM CSTERM A - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE ABNORMAL TERMINATE AGAIN", 
MOVE "A" TO TERMINATE-TYPE. 
CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE. 
999-EXIT, 
EXIT. 
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PROGRAM-ID. L6S1C. 


KEKKKKEKKKEKEKEEKEKEKEKEKRKKKKKKEREKKEKKKEEKEKEREKKKEEEEKRKKEKKKKEEEKKKKEKKEKEKEESK 


* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
* 


THIS IS A SAMPLE LU 6.2 PROGRAM WHICH WILL EXERCISE SOME 


OF THE AIF 6.2 VERBS. THE PROGRAM WILL ALLOCATE A 
CONVERSATION WITH THE HOST TRANSACTION ADL6. IT WILL 


READ DATA FROM THE TERMINAL, CONVERT IT TO EBCDIC, BUILD 


THE LOGICAL RECORD TO SEND TO THE HOST, SEND THE RECORD 


TO THE HOST AND RECEIVE THE RECORD BACK. UPON RECEIVING 


THE DATA BACK, THE PROGRAM WILL COMPARE THE DATA THAT 
WAS RECEIVED WITH THE DATA SENT AND SEND EITHER A CON- 
FIRMATION OR AN ERROR MESSAGE TO THE HOST DEPENDING ON 
WHETHER THE TWO COMPARED THE SAME. IT WILL CONVERT THE 
RECEIVED DATA TO ASCII AND DISPLAY IT ON.THE TERMINAL. 


IF THE TERMINAL INPUT DATA STARTS WITH: END; THE PROGRAM 


WILL DEALLOCATE THE CONVERSTATION AND END OTHERWISE IT 
WILL DO THE SAME PROCESS WITH WHAT HAS BEEN RECEIVED 
FROM THE TERMINAL. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE~COMPUTER. LEVEL-6. 
OBJECT-COMPUTER. LEVEL-6. 


* 
* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 


01 


O01 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
Ol 


77 
vd 
01 


77 
77 
77 
77 


START-OF-WS PIC X(32) 
VALUE "START OF WORKING STORAGE SECTION". 
AIF-PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". 


SNA-WORK~ AREA PIC X(200). 

AIF-NODE- NAME PIC X(8) VALUE "SMPLAIF". 
REMOTE-LU- NAME PIC X(8) VALUE "AO6CICS2". 
STD~NAME PIC XX VALUE "AA", 
SYNC-LEVEL PIC X VALUE "C". 

HOST- TRANSACT ION- NAME PIC X(4) VALUE "ADL6". 
TRANSLATE- TRAN~ NAME PIC X VALUE "Y". 

RETU RN-CONTROL PIC X VALUE "A", 
CONVERSATION-ID PIC X(4). 
POSTED-CONVERSATION-ID PIC X(4). 

LOGI CAL-DATA-BUFFER. 

05 LOGICAL-REC-LENGTH COMP-1. 


05 LOGICAL~RECORD 
DATA~BUFFER-LENGTH 


PIC X(80) VALUE SPACES. 
PIC 9(5) VALUE 82. 


DATA-BUFFER-ALIGNMENT . PIC X VALUE "L". 
RECEIVE-DATA~BUFFER. 

05 RECEIVE-REC~LENGTH COMP-1. 

05 RECEIVE-RECORD PIC X(80) VALUE SPACES. 
TY PE-OF-RECEIVE PIC X VALUE "B". 
RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 82. 
RECEIVED~DATA~LENGTH PIC 9(5) VALUE 0. 
SEND-SENSE-DATA PIC X(8) VALUE ZEROS. 


KEKEKKERKEKEKKKEKEEEKKKKEKEKEREREREKRKEERERKKEKRKKKREREEREREKKKEKEREEKRKKEEKEKKKSE 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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77 
01 


77 
77 


77 
77 
ct 
77 
77 
01 
O1 


Ol 


RETURN-CODE-VALUES. 
05 MAJOR-RETURN-CODES. 


10 ABEND-DEALLOCATE PIC X. | 

88 ABEND-RECEIVED VALUE "Y". 
10 STOP-RECEIVED PIC X. 
, 88 SOPR-ISSUED-STOP VALUE "Y", 
10 SERV-REQ-CANCELLED PIC X. 

88 CALL-WAS-CANCELLED VALUE "Y". 
10 SERV-REQ-COMPLETE PIC X. 

88 CALL-WAS-COMPLETED VALUE "Y". 
10 COBOL-ERROR PIC X. 

88 CALL~FORMAT-ERROR VALUE "Y", 


05 MINOR-RETURN-CODE PIC 9(4) VALUE ZEROS. 
SOPR-STOP-TIME. | 
05 DATE-OF-STOP. | - 

10 STOP-YEAR PIC 99. 


10 STOP-MONTH PIC 99, 
| 10 STOP-DAY PIC 99, 
05 TIME-OF-STOP. 

10 STOP-HOUR PIC 99, 

10 STOP-MINUTE PIC 99, 

10 STOP-SECONDS PIC 9(4). 
RECEIVED-SENSE-DATA PIC X(8) VALUE ZEROS. 
OUTPUT-CONTROL-WORD. 

05 REQUEST-SEND-RECVD PIC X. 

88 REQUEST-TO-SEND VALUE "Y", 
05 CONVERSATION- POSTED PIC X. 

88 POSTED-CONVERSATION VALUE "Y", 
05 WHAT-RECEIVED PIC 99, 

88 DATA-RECEIVED VALUE 20. 


88 LL-DATA-RECEIVED-COMP VALUE 21. 
88 LL-DATA-RECEIVED-INCOMP VALUE 22. 


88 LL-FIELD-TRUNCATED VALUE 08. 

88 CONFIRM-REQUEST VALUE 02. 

88 CONFIRM-ON-HOST-PTOR VALUE 06. 

88 .SEND-REQUEST-RECVD VALUE 04. 

88 DEALLOCATE-CONFIRM VALUE 05. 

88 DATA-INC-LENG-0 VALUE 09. 

88 DATA-AVAIL-LENG-0 VALUE 10. 
LOG- SWITCH PIC X VALUE "N". 
LOG-DATA PIC X(80) VALUE 

"ERROR IN PROGRAM". 

TY PE-SWITCH PIC X VALUE "S". 
CONVERSION-LENGTH COMP-1. 
CONF IRMATION-LOCKS PIC X VALUE "L". 
TRANSLATE~FROM- POSITION COMP-1 VALUE 1. 
TRANSLATE- TO- POSITION COMP-1 VALUE 1. 


END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS", 
MISC-PROGRAM-VARIABLES PIC X(26) VALUE 

"OTHER WORKING STORAGE DATA". 
DATA- TO-HOST PIC X(80) VALUE HIGH-VALUES. 
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01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
05 CHECK-INPUT-FIELD OCCURS 80 TIMES. 
10 DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 


10 DATA-FLD-CHAR PIC X. 
01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END". 
05 FILLER PIC X(77) VALUE SPACES. 
01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE l. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL- SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE - VALUE O. 
05 RECORD-BUILT-SW PIC 9 VALUE 0. 
88 RECORD-BUILT VALUE 1. 
05 NO-INPUT-SW PIC 9 VALUE QO. 
88 NO-INPUT-DATA VALUE 1. 
05 COMPARE-REC-SW PIC 9 VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE-TO-CHECK VALUE 1. 
Ol ENTER-MESSAGE PIC X(80) VALUE 


"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 

01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
PROCEDURE DIVISION. | 
000-BEGIN. 

DISPLAY "START OF LU 6.2 SAMPLE COBOL PROGRAM", — 
KKEKKEKKEEKKEKKKKEKEREKEREREKREREKEKKREEEEKRKEKREEKERERRERKEKEKERKEKKERRKKEESE 
* START BY TRYING TO ALLOCATE A CONVERSATION WITH HOST CICS * 
* TRANSACTION ADL6. 


KRKEKEKEKKEKEEKKEKEKEEREREKKEEKREERKEERRKRERKRKKEKEEERREEKEREKKKEKKEKRERKEEKKKEE 


PERFORM 100-ALLOCATE-CONVERSATION THRU 100-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
GO TO 099-TERMINATE, 
KEKEKEKKEKKKEEKEKEKEREREKERKREKEKEEKKEKKKREEREEKEKEKEKEEKKERKREKEREERKREKKEE 
* IF THE CONVERSATION IS ALLOCATED THEN WE CAN PROCEED WITH #* 
* THE REMAINDER OF THE PROGRAM PROCESS. 
KKEKEKKKKEEKEKREEREREKEKEKEEKREEEREKREKKEEKEKEKEEEEEEKKEREKEKRKEKREREEKEEKKEESR 
005-CONTINUE. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END- PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. | 
MOVE HIGH-VALUES TO DATA-TO-HOST. 
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MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DATA~TO-HOST. 
MOVE 0 TO INDX1 
NO- INPUT— SW 
RECORD-BUILT- SW 
LOGICAL- REC-LENGTH 
DATA-BUFFER-LENGTH. 
PERFORM 300-BUILD-LOGICAL THRU 300-EXIT VARYING INDX1 FROM 1 
BY 1 UNTIL RECORD-BUILT. 
IF NO-INPUT-—DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
ELSE | 
NEXT SENTENCE, 
MOVE DATA-TO-HOST TO LOGICAL-RECORD. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE : 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
0101-NEXT-RECEIVE. 
IF OK-~TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
015-CHECK-WHAT- RECEIVED. 
IF DATA-RECEIVED 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT 
PERFORM 505-ISSUE-CSRAW THRU 500-EXIT 
GO TO 0101-NEXT-RECEIVE 
ELSE | 
IF DEALLOCATE-CONFIRM 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
GO TO 099-TERMINATE 
ELSE 
IF CONFIRM-ON-HOST-PTOR 
GO TO 020-—CHECK-COMPARE 
ELSE 
NEXT SENTENCE, 
DISPLAY "UNEXPECTED WHAT RECEIVED FIELD". 
DISPLAY "WHAT RECEIVED IS: " WHAT-RECEIVED. 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | | 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
GO TO 0101-NEXT-RECEIVE. 
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020-CHECK-COMPARE. 
IF COMPARE-OK 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
ELSE 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 


STOP RUN. 
* 


* 
* 
100-ALLOCATE- CONVERSATION. 
REKKEKKERKEEKEKEKEKREKEKERKKEEEKERKEKKREKEREKERKEKEKEKEKEKKEKRKEKEKRES 
* THIS ROUTINE WILL ISSUE A CSALLO TO ATTEMPT TO ALLOCATE A 
* LU 6.2 CONVERSATION WITH THE HOST CICS TRANSACTION ADL6. 
* A CSFLSH IS ISSUED TO FORCE AIF TO SEND THE ATTACH REQUEST 
* TO CICS IMMEDIATELY, INSTEAD OF WAITING FOR THE SEND BUFFER 
* [0 FILL UP OR ANOTHER VERB BEING ISSUED WITH A FLUSH OPTION. 
* WE WANT TO FIND OUT IF A CONVERSATION CAN BE STARTED BEFORE * 
PROCEEDING FURTHER, * 
KREKEKERKEKRKEEEREREREEREKEEEKEREKERKREKEKEREEEKEEKEKKKREKERERREKEKKEKEKESR 
***k**DISPLAY "GOING TO DO CSALLO NOW", 
CALL "CSALLO" USING SNA-WORK-AREA 
AIF-NODE-NAME 
REMOTE-LU- NAME 
CONVERSATION-ID 
HOST- TRANSACT ION-NAME 
TRANSLATE- TRAN-NAME 
STD-NAME 
RETURN- CONTROL 
SYNC- LEVEL 
RETURN-CODE-VALUES 
SOPR- STOP- TIME 
RECEIVED-SENSE-DATA 
OUTPUT-CONTROL-WORD. 
KREEKKEKEEKERKEEEREREEKEEKEEKRERKEKERKREKEKEEKKEEEKRREEEREKKEKEKEKEEKEKERKKER 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRRKEKEKKEKERKEKEKEKEREREKEEKRKKEKEREKKEKERKEEEKRERKEKEKEKREREREKEEKEKEREREE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSALLO REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END - NO CONVERSATION" 
GO TO 100-EXIT. 


+ + oF * 


+ 
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KKK KKK KK KKK KE KEKE REE REE I KIER EEE EIA KKK 
* NOW ISSUE THE CSFLSH TO FORCE AIF TO SEND THE ATTACH REQUEST* 
* TO THE HOST CICS SYSTEM. | * 
KEKRKEKEEEKEKEKREKEKEEEKKEEKEEKEEEEKEEEKEREKEKERERERKEEREKEERKEREKEEEREEKEREE 
**x***DISPLAY "GOING TO DO CSFLSH NOW". 

CALL "CSFLSH" USING SNA-WORK-AREA. 
KREKKEKEKEKEKKEKKEKERERKEKEKEKRKEEKREREEREKKEKEREKRRKEREKRKEEEEKEKKKEKERKEKKEER 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KEKKEKKKEKKEKEEKREKEKKEKEKEREREEREREEEEKEREKEEEEKEEREERKEEKEKREEEREREKRKEKRKSE 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSFLSH - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END -— NO CONVERSATION" 
GO TO 100-EXIT. 
DISPLAY "CONVERSATION HAS BEEN ALLOCATED - ID IS: " 
CONVERSATION-ID. 
100-EXIT. 
EXIT. 
* EJECT 
200-GET-RECORD. 

MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
KKEEKEKEKEKKEKREKRKEKEKEKEKKEKEEKERKKEKREEKEKEREKREEREEKERKEKRERKEKEKEKKKKKKE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. — 
KEKKEKRKKEREEEKEKEEKEKRERKEEREREKERRR RRR RRR REEREERKEKKKK 

DISPLAY ENTER-MESSAGE. 

ACCEPT DATA-FROM-TERMINAL. 

200-EXIT. 
EXIT. 
*SKIP3 
300-BUILD-LOGICAL. 
KREKEEKRKEEKEKEKEEREKREREK EERE KEKE REE ERE EKER ERKREREKRKEKEEKEREKKKKEERES 
* NOW BUILD THE LOGICAL RECORD THAT WILL BE SENT TO THE HOST * 
* BY CALCULATING THE LENGTH OF THE DATA RECEIVED THEN CONVERT * 
* THE DATA TO EBCDIC. * 
REKEKEKKKEEEEKEREEKKEKEEKEKRERKEKEERKREKERERKEEKREKEKEERKKRKEKERKEEKEEERREKESE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-BUILT-SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
ADD 2 TO DATA-BUFFER-LENGTH 
- LOGICAL-REC-LENGTH 
MOVE CALC-LENGTH TO CONVERSION-LENGTH 
MOVE LOGICAL-REC-LENGTH TO TEMP-LENGTH 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
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ELSE 
ADD 1 TO DATA-BUFFER-LENGTH 
LOGI CAL~REC-LENGTH. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 
KHRKKEKREKKRE REE KEE KEE EERE EERE EEE REE KEE KEKE REE KEKRKEEKREKKEKREKEKEEEKEEKE 
* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
. FROM THE TERMINAL TO EBCDIC BEFORE IT IS SENT TO THE HOST. * 
KKKKKEKRE KEKE EEE ERE EEE REE E KE ERE RE RE EREKRKREKEEREKREKREEREREKEEEKREEKE 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA- TO-HOST 
TRANSLATE-F ROM- POSITION 
DATA- TO- HOST 
TRANSLATE- TO- POSITION 
CONVERS ION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR- IN-CALL~ SW 
ELSE , 
NEXT SENTENCE. 
305-EXIT. 
EXIT. 
*EJECT 
400-SEND-RECORD. 
HARK KKK KEKE KEKE KKK KEKE EAR EERE RR EERE REE KER EKER ERE EEE ERREREEEEEREREES 


* THIS ROUTINE WILL ISSUE THE CSSDAT CALL TO SEND THE DATA * 


= TO AIF. AIF WILL NOT SEND THE DATA TO THE HOST UNTIL WE . 
* ISSUE ANOTHER CALL TO FORCE A FLUSH OF THE BUFFERS. THIS - 
* WILL BE DONE IN THE NEXT ROUTINE. 


KRKEKEKEKEEKRKEKEKREREKEKREEKRKKKRKEERERREEKKEREKEKEEKKEKKKEEKEEKERKEKKKEKKEKEEKEKEKKKKKEE 


*#****DISPLAY "GOING TO DO CSSDAT NOW". 
CALL "CSSDAT" USING SNA-WORK-AREA 
LOGICAL-DATA- BUFFER 
DATA-BUFFER-LENGTH. 
KRREKEKKEKKEKEKKEKEKKEKEKKKEKEEKKEEEKEKEKEEKREKREKKKEREKEEKKEKEKKEEKKEKKKEKSE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRKKREKEKKEEKEKEKKEEREKKEREKEKEKEKEKKEKEKEKKKEEKEKEKEKKKEKEKEKEKKEKEKEKER 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSDAT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
400-EXIT. 
EXIT. 
*EJECT 
500-RECEIVE-INFO. 
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KREKEKEKEKEKEKEKEEEKKEEREKEEKRE KEKE EEEEKEREERREEREREEEKEKEKEEAKKEKKKKEEEK 


THIS ROUTINE WILL ISSUE A NUMBER OF AIF VERBS. FIRST IT 
WILL DO A CSPTOR WHICH WILL CAUSE AIF TO FLUSH THE SEND 
BUFFER SENDING THE DATA FROM THE CSSDAT CALL AND A SEND 
INDICATOR TO THE HOST PROGRAM TO TELL THAT PROGRAM IT CAN 
TURN AROUND AND SEND TO THIS PROGRAM. 

AFTER THE CSPTOR, THE PROGRAM WILL ISSUE A CSRAW TO WAIT 


FOR THE DATA TO COME BACK FROM THE HOST AND RECEIVE IT. 
KKEKKKK KEKE KEKE RARER ERE ERE ERE REE RE RE REEREEREEREREERKREREREREREERKEKS 


REKEKKKKKEEKEKEKEEEKKREKKEKEEEEKREKREKREEEKKEKRERKEKKREKEKEKEKEREKERERKEEREREE 


* THE TYPE OF PREPARE TO RECEIVE IS A FLUSH (TYPE-SWITCH=F) * 
* THE TYPE OF LOCKS IS LONG (CONFIRMATION-LOCKS=L) * 
REKEKKEKKKEEKREKRERKEKKEKKEEKKKEEKREERERERERKEEREKEKREREEREKERERREREEEEEEES 
*****DISPLAY "GOING TO DO CSPTOR TYPE F NOW", 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSPTOR" USING SNA-WORK-AREA 
TY PE- SWITCH 
CONF IRMATION-LOCKS. 
KREKEKEKKEKEKEEKEKREKKRKEKKEKEKEREKKEEKERKERKEKREKEREKEKEREKEEKEKEKRRRKEERKEKEKKRKEK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRAEKKEKEKEKEEKRKEKEKEKKEKEKEKEEKKEKEKREREEKEREKEKEKEEKEKEKREKREEEKKEREKKEREKERKREESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSPTOR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-ISSUE-CSRAW. 
KRKEKKEKKEKEKEKREEKKEKERERKEKEKERERERRKEEEEKEKEEKEKKRRKKEREREREKREERKEEKEEREERKEEKREARK 
ISSUE THE CSRAW TO CAUSE THE PROGRAM TO WAIT FOR A RECEIVE * 
AND RECEIVE THE DATA COMING BACK FROM THE HOST TRANSACTION. * 
THE TYPE OF RECEIVE IS A BUFFER (TYPE-OF-RECEIVE=B) SO * 
AIF WILL PASS AN ENTIRE BUFFER'S WORTH OF DATA AS OPPOSED * 
* 
* 
* 


% FF OF OF OF OF 
* oF % OF FF 


+ + + HF F 


TO A LOGICAL RECORD. THIS ROUTINE WILL ALSO BE USED TO 
* RECEIVE STATUS OR STATE CHANGE INFORMATION, | 
RKEKEEKKEKEKRKEKEKEEKKREEKEKEKEKKEKRKEKEEREERREKREKERERKREKERERREKRERERKREKEEKEE 
*****DTISPLAY "GOING TO DO CSRAW NOW". 
CALL "CSRAW" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
TY PE-OF-RECEIVE 
RECEIVED-DATA-LENGTH. 
KKEEKEKEKEKKEERKEERERKEKREKRKEEEERREKREREREKKREKEEEREKKEKEERRE EKER KERKKKRERERESK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KEKEKEKKEKKKKEKKKEEKREKKEKKEEKREKEKERERRARERKKEKEEEKEKKEREEKERRERERKKEREREEESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRAW - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
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500-EXIT. 
EXIT. 
*EJECT 
6 00-COMPARE-INOUT. 
KEKKEKRKEKKKKKEEKEREKKEKEREKEEKEKKEEKKKEEKEKEKKEERKEEKEKEEKEKEKKEEKKKKKKEKEEKREKSE 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME * 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. 
KRKEKKEKEKEKEKEKEKKERKKEKEREKEKKEKKEKKEKKERKEKEKKKREEKEKEKKEKEKKEKEEEEKEKEEKE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF DATA-BUFFER-LENGTH IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE | 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " DATA-BUFFER-LENGTH 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
IF LOGICAL-REC-LENGTH IS EQUAL TO RECEIVE-REC-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "LOGICAL LENGTHS ARE NOT THE SAME", 
MOVE 0 TO COMPARE-REC-SW 
NUMBER-CHARS 
NO-MORE- SW 
INDX1. 
COMPUTE RECEIVE-REC-LENGTH = RECEIVE-REC-LENGTH - 2. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA. 
RKEKEEKEKEKEEEEKEEREREREKREEKEREREREKEEREKEREEREEEEERKERERRKEKEERERKRKRKKRKEES 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
RREEKEKREEKKEKEREKKEEEKEEKERREREKEKRKEEKEERERERREKREKKEKREREREKRKEEEREEEKEEEREK 
COMPUTE CONVERSION-LENGTH = RECEIVE-REC-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
DATA-FROM-HOST 
TRANSLATE-F ROM- POSITION 
DATA-FROM- HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR _ 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
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ELSE 
NEXT SENTENCE. 

DISPLAY "RECIEVED DATA IS: ". 

| DISPLAY DATA-FROM-HOST. 
600-EXIT. 

EXIT. 

*EJECT 
700-ISSUE-CONFIRMED. 

KRKEEERKEEKKEKKEKEKEEKEKREERKEEKREREEKEREKREKEEKEREREREREKREREEKREEKRKKKKKKKEK 
-* THIS ROUTINE WILL ISSUE A CSCNFD CALL. THIS WILL CAUSE AIF * 
* TO SEND A CONFIRMATION TO THE HOST TRANSACTION. 
RKEEKREKEKREKEKKKEKKEKEKEEEEKEEKEREEEKKEREEKEKKEEKREEKEKEKREEREEKKERKEEKREKEREESE 
*#****DISPLAY "GOING TO DO CSCNFD NOW". 

CALL "CSCNFD" USING SNA-WORK-AREA. | 
RREEKKKKEEKEKEEKEKEKKEEKEKRKEKEKEKRKEREKEKEKEKREEREEREEREKKEEKEREKKKKEKRKKKKES 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS, * 
KKEKEKEKKEKKEKEKEKEKEEKEEKEKEKKKEREKREKEKEKEKKEKRKEKKKKEEKEEKEKEKKKRKREKEKRESE 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSCNFD - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
700-EXIT. 
EXIT, 
*SKIP3 _ 
705-SEND-ERROR. 
KEKEKEKKEKEKEKEEKRKEERERKEKEKEKERKKEKKREKREKKEKEKEKRKEKEREKKEKREKREKRKEEKEEKKEKKKK:E 
* THIS ROUTINE WILL ISSUE A CSSERR CALL TO NOTIFY THE HOST 
* TRANSACTION OF AN ERROR IN PROCESSING. THE TYPE OF ERROR #* 
* IS PROG (TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE * 
* LOGGING OF DATA (LOG-SWITCH=N) . * 
KREEKKKEKKEKEEKKREKEKRKKKEKKEKEEKRKRKEEKKKERKEKREKKEKEEKKERREEKEREKEKKKEKEKEKREEESE 
*****DISPLAY "GOING TO DO CSSERR TYPE P NOW". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSSERR" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 
KEKEKKEKEKEEEEREEEKREKEEERERREKREEKEKRKEERKRERKREEREEREREERKEEREKREREKREKKEKEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEKKEKEKKEKKEKEKKEKEEKEKEKEKKEKEKREREEREKRERKEEKEKKEEKEEKRKEKEEKKKREREKEKEKRER 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSERR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
705-EXIT. 
EXIT. 
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*EJ ECT 


800-EXIT. 


800-COMPARE-EACH-FIELD. 


IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 4 

ELSE 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 

NUMBER-CHARS 

MOVE 1 TO COMPARE-REC-SW. 

IF INDX1 IS EQUAL TO RECEIVE-REC-LENGTH 
MOVE 1 TO NO-MORE- SW 
DISPLAY "END OF COMPARE" 

ELSE 

NEXT SENTENCE, 


EXIT. 


*SKIP3 


900-CHECK-RETURN. 


KRREKEKEKKEKEKKKKEKEKRKEKEKREKEREKEKKERKEKKEKKERREKRKEKREKEERKEEREKRERKKKKKKKKEKKKE 


* 
* 
* 
* 


THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS * 


AIF VERB CALLS. A SWITCH IS SET TO INDICATE WHETHER THE - 
CALL WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
WIL BE DISPLAYED ON THE TERMINAL. = 


KKEKEKKEKKKKEEKKEKRERKKRKEKEKREREEREEKEREKREKEKEKEKKKKEKRKKKEREEKRKRRKKKKKKKE:E 


MOVE 0 TO ERROR-IN-CALL- SW. 
IF CALL-~FORMAT-ERROR 
MOVE 1 TO ERROR-IN-CALL- SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR- RETU RN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: " SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE. 
IF ABEND~-RECEIVED | 
DISPLAY "AN ABEND/DEALLOCATE HAS BEEN RECEIVED" 
DISPLAY "SESSION WILL BE TERMINATED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
IF CALL-~WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE, 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE. 
MOVE 1 TO ERROR-IN-CALL- SW. 
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900-EXIT. 
EXIT. 

*SKIP3 a. 

999-END-PROGRAM. | 

KREKEKEEKEKEKKERKEKEKKEEKEKEEEEKREEEEEEREEREKEEEERERREERREEREREEREEREERREEKEEESE 

THIS ROUTINE WILL BE USED TO ISSUE A CSDEAL CALL ENDING THE * 

CONVERSATION WITH THE HOST TRANSACTION, THE TYPE OF DE- 

ALLOCATE IS FLUSH (TYPE-SWITCH=F) ON THE FIRST ATTEMPT IF * 

THAT HAS AN ERROR THEN AND ABEND PROG TYPE WILL BE ISSUED * 

(TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE LOGGING * 
* 
* 


+ ob OF OF OF 
Py 


* OF ERROR DATA (LOG-SWITCH=N) . 
KEKRKKKEKEEKKEKEEKKEKKEEEKEKEKEKREKEKEEEREKKEKEEEREEEKREEREKEREKEEREREEREEEKEEEE 
*****DISPLAY "GOING TO TRY A NORMAL DEALLOCATE NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA, 
RKEKKEKKEKKEEKEEKEKKEKEEKEKREKKEKREKKEKKEKEKREEREKERKEEREREKEREEEKEREKEREKEREEEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS, * 
KRKEKEKKEKEKRKEKKEKEKEEKEREREKEREKEREKREKEEKEEEREKEKEREEKEEEKREEEEREREKEKEEEEEKSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "CONVERSATION HAS BEEN DEALLOCATED" 
GO TO 999-EXIT 
ELSE 
DISPLAY "ERRORS FROM CSDEAL F - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE DEALLOCATE/ABEND". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA, 
999-EXIT, 
EXIT. 
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PROGRAM-ID. L6S2CH. 


TCC ESOECCCECTCCLCICTCCCICICCCCCCISC CICS CSCS TTT C LTTE 


OF THE AIF 6.2 VERBS. 


eee ee eH He HE HF HF HF HF HS F 


FROM THE TERMINAL. 


KEKEKEEKREKKEKEKERERERKEEREKRERREKEKREREREREEEKREEERERKEKREEKREKEEKEKEERERKEEREEKEKKKEKE 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. LEVEL-6. 


OBJECT-COMPUTER. LEVEL~6. 
* 


* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
O01 START-OF-WS PIC X(32) 


THIS IS A SAMPLE LU 6.2 PROGRAM WHICH WILL EXERCISE SOME 
THE PROGRAM WILL ATTACH TO A CONVERSATION 
THAT IS ALLOCATED BY THE HOST TRANSACTION ADL6. 
READ DATA FROM THE TERMINAL, 
THE LOGICAL RECORD TO SEND TO THE HOST, 
TO THE HOST AND RECEIVE THE RECORD BACK. 
THE DATA BACK, THE PROGRAM WILL COMPARE THE DATA THAT 
WAS RECEIVED WITH THE DATA SENT AND SEND EITHER A CON- 
FIRMATION OR AN ERROR MESSAGE TO THE HOST DEPENDING ON 
WHETHER THE TWO COMPARED THE SAME. 
RECEIVED DATA TO ASCII AND DISPLAY IT ON THE TERMINAL. 
IF THE TERMINAL INPUT DATA STARTS WITH: END; 
WILL DEALLOCATE THE CONVERSTATION AND END OTHERWISE IT 
WILL DO THE SAME PROCESS WITH 


IT WILL CONVERT THE 
THE PROGRAM 


WHAT HAS BEEN RECEIVED 


VALUE "START OF WORKING STORAGE SECTION". 
Ol AIF-PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". 


77  SNA-WORK-AREA 

77° AIF-NODE-NAME 

77 REMOTE-LU-NAME 

77 STD-~NAME 

77 SYNC-LEVEL 

77 HOST-TRANSACTION-NAME 

77 TRANSLATE-TRAN-NAME 

77 RETURN-CONTROL 

77 CONVERSATION-ID 

77 POSTED-CONVERSATION-ID 

01 LOGICAL-DATA-BUFFER. 
05 LOGICAL-REC-LENGTH 
05 LOGICAL-RECORD 

77 DATA-BUFFER-LENGTH 

77 DATA-BUFFER-ALIGNMENT 

Ol RECEIVE-DATA-BUFFER. 
05 RECEIVE-REC-LENGTH 
05 RECEIVE-RECORD 

77 TYPE-OF-RECEIVE 

77 RECEIVE-BUFFER-SIZE 

77 RECEIVED~DATA-LENGTH 

77 SEND-SENSE-DATA 


Figure C-4. Sample COBOL Program for 
Initiated Session 
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PIC X(200). 

PIC X(8) VALUE 
PIC X(8) VALUE 
PIC XX VALUE 
PIC X VALUE 
PIC X(4) VALUE 


PIC X VALUE 


PIC 4 VALUE 
PIC X(4). 
PIC X(4). 


"SMPLAIF". 
"AN6CICS2" 


PIC X(80) VALUE SPACES. 
PIC 9(5) VALUE 82. 


PIC X VALUE 


is ae 


PIC X(80) VALUE SPACES. 


PIC X VALUE 


mB, 


PIC 9(5) VALUE 82. 
PIC 9(5) VALUE 0. 
PIC X(8) VALUE ZEROS. 


IT WILL | 

CONVERT IT TO EBCDIC, BUILD 

SEND THE RECORD 
UPON RECEIVING 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


LU Type 6.2 for Host- 
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01 RETURN-CODE-VALUES. 


O01 


77 
01 


77 
77 


77 
77 
77 
77 
77 
01 
01 


O01 
O01 


Figure C-4 (cont). 


05 


05 


MAJ OR-RETURN-CODES. 


10 ABEND-DEALLOCATE 

88 ABEND-RECEIVED 
10 STOP-RECEIVED | 

88 SOPR-ISSUED-STOP 
10 SERV-REQ-CANCELLED 

88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE 

88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 


88 CALL-FORMAT-ERROR 
MINOR~RETU RN- CODE 


PIC X 
VALUE 
PIC X 
VALUE 
PIC X 
VALUE 
PIC X 
VALUE 
PIC X 
VALUE 


VALUE 
nye 
VALUE 
my. 
VALUE 
my. 
VALUE 
ny 
VALUE 
ry 
VALUE 


SOPR-STOP-TIME. 


05 DATE-OF-STOP. 
10 STOP-YEAR 
10 STOP-MONTH 
10 STOP-DAY 

05 TIME-OF-STOP. 
10 STOP-HOUR 
10 STOP-MINUTE 
10 STOP-SECONDS 


RECEIVED-SENSE-DATA 
OUTPUT-CONTROL~WORD. 
05 REQUEST-SEND-RECVD 


PIC 9(4) 


PIC 
PIC 
PIC 


99. 
99. 
99. 


PIC 
PIC 
PIC 
PIC 


99, 

99. 

9(4). 

X(8) VALUE 


PIC X. 


88 REQUEST-TO-SEND 


05 CONVERSATION- POSTED 
88 POSTED-CONVERSATION 
05 WHAT-RECEIVED 
88 DATA-RECEIVED 
88 LL-DATA-RECEIVED~COMP 
88 LL~DATA-RECEIVED-INCOMP 
88 LL-FIELD-TRUNCATED 
88 CONFIRM-REQUEST 
88 CONFIRM-ON-HOST-PTOR 
88 SEND-REQUEST-RECVD 
88 DEALLOCATE-CONFIRM 
88 DATA-INC-LENG-0 
88 DATA-AVAIL-~LENG-0 
LOG~ SWITCH 
LOG-DATA 


"ERROR IN PROGRAM", 


TY PE-SWITCH 
CONVERSION-LENGTH 

CONF IRMATION-LOCKS 
TRANSLATE-FROM- POSITION 
TRANSLATE- TO- POSITION 
END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS". 


MISC-PROGRAM-VARIABLES PIC X(26) VALUE 


DATA- TO-HOST 


VALUE 


PIC X. 


VALUE 


a le 


wy 


PIC 99, 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
PIC X 


PIC X(80) VALUE 


PIC X 


VALUE 


VALUE 


COMP-1. 


PIC X 


COMP-1 
COMP-1 


VALUE 
VALUE 
VALUE 


"N". 
w Ns 
"N". 
"N". 
"N". 


ZEROS. 


ZEROS. 


tn 


"OTHER WORKING STORAGE DATA". 


DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
CHECK-INPUT-FIELD OCCURS 80 TIMES. 


05 


10 DATA-FIELD-CHAR 


PIC X,. 


for Host-Initiated Session 
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PIC X(80) VALUE HIGH-VALUES. 


Sample COBOL Program for LU Type 6.2 
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01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 


10 DATA-FLD-CHAR PIC X. 
01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX, 
88 END-PROGRAM VALUE "END". 
05 FILLER PIC X(77) VALUE SPACES. 
01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE 1. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL- SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-BUILT-SW PIC 9 VALUE 0. 
88 RECORD-BUILT VALUE 1. 
05 NO-INPUT-SwW PIC 9 VALUE QO. 
88 NO-INPUT-DATA VALUE 1. 
05 COMPARE-REC- SW PIC 9 VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO~-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE-TO-CHECK VALUE 1. 
O01 ENTER-MESSAGE PIC X(80) VALUE 


"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 
O01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
LINKAGE SECTION. 


77 NODE-NAME PIC X(8). 
77 STD PIC XxX, 
77 BASE-LEVEL PIC 99, 
PROCEDURE DIVISION USING NODE-NAME 

STD 


BASE-LEVEL. 
000-BEGIN. 

DISPLAY "START OF LU 6.2 SAMPLE COBOL PROGRAM". 

MOVE NODE-NAME TO AIF-NODE-NAME, 

MOVE STD TO STD-NAME. 

DISPLAY "AIF NODE IS: " NODE-NAME " STD IS: " STD. 
KREKKEKRKEKEKRKEKEKREREEEKEKRKEKEKKKEKKKKREKREKEKKEKKEEERRKKREEKEKKEKKEKKKKEKKEE 
* START BY TRYING TO ATTACH TO A CONVERSATION WITH HOST CICS * 
* TRANSACTION ADL6. | * 
KREKEKEKKEKEKEKKEKKEREKREKEKRKREKEKEKRKEREKKKKEKEKEKKEKEKREKKEEKEERKKEKRRKEKEKESE 

PERFORM 100-ATTACH-CONVERSATION THRU 100-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
GO TO 099-TERMINATE, 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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KRREEEEKREEKEEREEKEKRKEEEKEREERREEKRERERKEREEEEERKEEREREKEEREREREEEEEEEEEEEER 


* IF THE CONVERSATION IS ATTACHED THEN WE MUST ISSUE A - 
: RECEIVE AND WAIT SINCE A HOST INITIATED PROGRAM ALWAYS = 
* COMES UP IN RECEIVE STATE. * 


TTT TTT TTT TTT TET TTT ETT 


PERFORM 505-ISSUE-CSRAW THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "INITIAL CSRAW PROBLEM - PROGRAM WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
KREEKKEKEEKKEKEKKEEEKERKEEKEEKEREKEERKRKKEKRERKEEREKEEEKREKREREREEEERERREREEEEKRERE 
* CHECK THE WHAT RECEIVED VALUE TO MAKE SURE WE HAVE BEEN * 
* puUT INTO A SEND STATE, x 
KRRERKKEKKEREREKKEKEKEEKEKEKEKEERKEKEKKREREKEREEKEREKEKREREKEERKEREKEREEEREKREREERSE 
IF SEND-REQUEST-RECVD 
NEXT SENTENCE 
ELSE 
DISPLAY "INITIAL WHAT RECEIVED IS UNEXPECTED" 
DISPLAY "WHAT RECEIVED VALUE IS: " WHAT-RECEIVED 
DISPLAY "PROGRAM WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 


GO TO 099-TERMINATE. 
KKK KEKE KE EKER EKER ER ERR ERR REE RE ERR E REE RRR EERE KR EERE RREREEEEREKRE 


. AT THIS POINT THE CONVERSATION HAS BEEN ATTACHED AND WE * 
. ARE IN A SEND STATE THAT ALLOWS US TO PROCEED WITH THE * 
x REMAINDER OF THE PROGRAM PROCESS. * 


KKEKKEKEKKEKRERERKREREREKEEEKREEKREREREEKREREREREREKREEKRKREEKREREKEREKKEERKEEE 


005-CONTINUE. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END- PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DATA-TO-HOST. 
MOVE SPACES TO DATA-~FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA~FROM-TERMINAL TO DATA~TO-HOST., 
MOVE 0 TO INDX1 
| NO- INPUT- SW 
RECORD~BUILT- SW 
LOGICAL~ REC~ LENGTH 
DATA-BUFFER-LENGTH. 
PERFORM 300-BUILD-LOGICAL THRU 300-EXIT VARYING INDX1 FROM 1 
BY 1 UNTIL RECORD-BUILT. 
IF NO-INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
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ELSE 
NEXT SENTENCE. 
MOVE DATA-TO-HOST TO LOGICAL-RECORD. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
0101-NEXT-RECEIVE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
015-CHECK-—WHAT- RECEIVED. 
IF DATA~RECEIVED 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT 
PERFORM 505-ISSUE-CSRAW THRU 500-EXIT 
GO TO 0101-NEXT-RECEIVE 
ELSE 
IF DEALLOCATE-CONFIRM 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
GO TO 099-TERMINATE 
ELSE 
If CONFIRM-ON-HOST~PTOR 
GO TO 020-CHECK-COMPARE 
ELSE 
NEXT SENTENCE. 
DISPLAY "UNEXPECTED WHAT RECEIVED FIELD". 
DISPLAY "WHAT RECEIVED IS: " WHAT-RECEIVED. 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-~PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE., 
GO TO 0101-NEXT-RECEIVE. 
020-CHECK~-COMPARE. 
IF COMPARE-OK 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
ELSE 
PERFORM 705-SEND~-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE, 
GO TO 005-CONTINUE. 
099-TERMINATE. 
STOP RUN. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 


05/86 
C-45 GRI1-Ol1A 


* 
* 
* 
100-ATTACH-CONVERSATION. _ 
BREKKEKREKEERKEEREKEEEKEKEEEKERKREREEEKEERKEEEKERKEEKEEEREREREKEKRRRKERER 
* THIS ROUTINE WILL ISSUE A CSATCH TO ATTEMPT TO ATTACH AN 
* LU 6.2 CONVERSATION WITH THE HOST CICS TRANSACTION ADL6. * 
* SINCE THE CONVERSATION WAS ALLOCATED BY THE HOST TRANS- * 
* ACTION WE MUST DO AN ATTACH COMMAND SO AIF CAN PUT US IN * 
* CONVERSTAION WITH THE HOST TRANSACTION. | * 
KRKEKREKEKRKEKREKKEEREKEEREKRKEKRKEKEKERKEREEEERKEEKEREEREEEEREKREEEKEKERKEKKERKER 
*****DISPLAY "GOING TO DO CSATCH NOW", 
CALL "CSATCH" USING SNA-WORK-AREA 
AIF-NODE-NAME 
REMOTE-LU- NAME 
CONVERSATION-ID 
STD-NAME 
RETURN- CONTROL 
SYNC-LEVEL 
RETURN-CODE-VALUES 
SOPR- STOP- TIME 
RECEIVED-SENSE-DATA 
OUTPUT-CONTROL-WORD. 
RREEKEKEEKKEKEREEKEKEKEKEKEKERKEEEEREREKKREKEKEEREREEREREKRREERKERKEREES 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS, * 
KREKEKREEKKEKKEKEKEKRKEKEREREKEKEREERKEREKEKEKEREKRKEERKEKEREKEEEEKKEEEKEKRRKRRKKSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSATCH REQUEST - CHECK RETURN CODES" 
DISPLAY "MAJOR RETURN CODES ARE: " MAJOR-RETURN-CODES 
DISPLAY "PROGRAM WILL END - NO CONVERSATION" 
GO TO 100-EXIT. 
REEEKEKEEEERKEEKREREREREREEEEKREEREKRERERKERKREREKKRREKEKKEKEKKREKRKKEKK KKK 
DISPLAY "CONVERSATION HAS BEEN ATTACHED - ID IS: " 
CONVERSATION-ID. 
100-EXIT. 
EXIT. 
*EJECT 
200-GET-RECORD. 

MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
KRKEKEKEKEEKEKKERKEKEKEKEERKERKEKREKEERKEKEEREREKERERRKEREKREEKRKEKKKKKKKRKKEE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. * 
KRKEEKKEKEKEKREKRKEEKEKKEKEKEKKKEEKEREEKREKKEKEKEEKEKRREEREKREEKKEKEEKERKKEKE:K 

DISPLAY ENTER-MESSAGE. 

ACCEPT DATA-FROM-TERMINAL. 

200-EXIT. 

EXIT. 

*SKIP3 
300-BUILD-LOGICAL. 
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KKEKEKEKKEKKEREKEKKEKEKEEREEKERKRKKEEEEKEKEKREKEEREKEREEEKKEKKKKKKKS 


* NOW BUILD THE LOGICAL RECORD THAT WILL BE SENT TO THE HOST * 
* BY CALCULATING THE LENGTH OF THE DATA RECEIVED THEN CONVERT * 
* THE DATA TO EBCDIC. * 
KREKEKKKKEKEKKEKEKEKEEKKKEEREEERKEKEKRKKEKEKEKEKKEEKKKKKKEEEKKEEKEKEREKSE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-BUILT-SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
ADD 2 TO DATA-BUFFER-LENGTH 
LOGI CAL-REC-LENGTH 
MOVE CALC-LENGTH TO CONVERSION-LENGTH 
MOVE LOGICAL-REC-LENGTH TO TEMP-LENGTH 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE 
ADD 1 TO DATA-BUFFER-LENGTH 
LOGI CAL~REC-LENGTH. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 
KREKEKKKEKEKEKRKERKEKEEKEKKREKRKKKEEEKEKKEEKKEKKERKEEEKRKKEKKEKKEKEREKKEKRKKKKEESE 
* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
* FROM THE TERMINAL TO EBCDIC BEFORE IT IS SENT TO THE HOST, * 
KRKEKEKEKEKEKKEKEKKEEKKEKREKKEEKEKEKKEKEKEKEKEKKEKEKKEKKEKKEEKKEKEKEKKERKEKER 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA- TO-HOST 
TRANSLATE-FROM- POSITION 
DATA- TO-HOST 
TRANSLATE-TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
305-EXIT. 
EXIT. 
*EJECT 
400-SEND-RECORD. 
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KKEKKKEKKE REE KEKE RE REE RE RE RE ER ERE EERE ERE REE EERE REREREERERERKEEE 
* THIS ROUTINE WILL ISSUE THE CSSDAT CALL TO SEND THE DATA > 


ba TO AIF. AIF WILL NOT SEND THE DATA TO THE HOST UNTIL WE = 
x ISSUE ANOTHER CALL TO FORCE A FLUSH OF THE BUFFERS. THIS . 
. WILL BE DONE IN THE NEXT ROUTINE. * 


KKEEKEERKEKEKEEKEEERKEEEREKEKKEEREEREREEEEEKEKEEERREEREEEEKEEEKREEEEKERESE 


*****DISPLAY "GOING TO DO CSSDAT NOW". 
CALL "CSSDAT" USING SNA-WORK-AREA 
LOGICAL-DATA-BUFFER 
DATA-BUFFER-LENGTH. 
BREKKEEKKEKKEKEEKEKEEKEKEKEKEKERKEREKEKEKEEREREEKEKEEEKEEKEEEEEEEEREKKEEKEEREK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
REKEKKEKKEKKEEKEEREKEKKEKEKEEKKEEKRKEKEEERKEEEKREKRKREEEKEEKEKEKKEKKEEKEREKKKKKEKE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSDAT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
400-EXIT. 
EXIT. 
*EJECT 
500-RECEIVE-INFO. 
BREKEKKEKKEKEEEKEKKREEKEEREKKEREREREKKEERKEEREREEREEKRERKERREKEKRKEKRRKKREEK 
THIS ROUTINE WILL ISSUE A NUMBER OF AIF VERBS. FIRST IT 
WILL DO A CSPTOR WHICH WILL CAUSE AIF TO FLUSH THE SEND 
BUFFER SENDING THE DATA FROM THE CSSDAT CALL AND A SEND 
INDICATOR TO THE HOST PROGRAM TO TELL THAT PROGRAM IT CAN 
TURN AROUND AND SEND TO THIS PROGRAM. 
AFTER THE CSPTOR, THE PROGRAM WILL ISSUE A CSRAW TO WAIT 


FOR THE DATA TO COME BACK FROM THE HOST AND RECEIVE IT. 
KKEKKKEKKE EEE EKER KEKE EKER KEKE RR EER REE R ERE REE EER EEK ERE REEEKREEEEREEEE 


KKKKEKKKEKE KEKE EERE EEK KER ERE KERR EERE ER ERE RE EERE RERREREEEREEEEKEEER 


* THE TYPE OF PREPARE TO RECEIVE IS A FLUSH (TYPE-SWITCH=F) * 
* THE TYPE OF LOCKS IS LONG (CONFIRMATION-LOCKS=L) 
KRKREKREKREKREEEKEKEREREREREKEKEKREKEKREEKEKEREKREREREERKEKREKREREREKRERKEKRERE 
*****DISPLAY "GOING TO DO CSPTOR TYPE F NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSPTOR" USING SNA-WORK-AREA 
TY PE- SWITCH 
CONF IRMATION-LOCKS. 
BRERKEKEKEKEKREKREKREKEREKREKEREKRREKEKEEREKEEKEEEREKREREREEEKAEKEEKERERKEEESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
REEKKEEKEKEEEEKEREKEREKEKEEEEKEEEKREREKEREEEEREERKEEKEREEEREEKEKKEKRERER 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | 
DISPLAY "ERRORS FROM CSPTOR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-ISSUE-CSRAW. 


% OF Oe OF 
% ob OF OF 
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KKEKEKKKEKEKEEEKEKREKRREKEEEREKEERKEREKEKEKREEKEKKEEKEKEKKEKKEEKEKEKEKEKRKKEKEKE 


ISSUE THE CSRAW TO CAUSE THE PROGRAM TO WAIT FOR A RECEIVE * 
AND RECEIVE THE DATA COMING BACK FROM THE HOST TRANSACTION. * 
THE TYPE OF RECEIVE IS A BUFFER (TYPE-OF-RECEIVE=B) SO 3 
AIF WILL PASS AN ENTIRE BUFFER'S WORTH OF DATA AS OPPOSED * 
* 
* 
* 


et ee te + 


TO A LOGICAL RECORD. THIS ROUTINE WILL ALSO BE USED TO 
* RECEIVE STATUS OR STATE CHANGE INFORMATION. 
KEKKKEKKEKEKKEKKEKEKERKEKEKEEKEKEKREKEKEKEKKEKKEKKEKREKKEKKEKKEEKERKEKEKKEKES 
***k**DTSPLAY "GOING TO DO CSRAW NOW". 
CALL "CSRAW" USING SNA-WORK-AREA 
RECEIVE~DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
TY PE-OF-RECEIVE 
RECEIVED-DATA-LENGTH. 
RKKEKKEKEKKKKEKKEKEKRKEKKEKEKEKEKEKKKEEKEREEKKEKREKEKEKKKKKKKEKKKKRKRKKKK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KREKEKREKREKKEKKKEKEKKEKKKKEKEKEEKEKEKKKEKEKEEEERKKRREEKEKEKEREREKEKEKEKEKEEESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRAW - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
500-EXIT. 
EXIT. 
*EJECT 
600-COMPARE-INOUT. 
KREKEKEKKREKEKEKKEKEEKEKEKREEERKEEEKEEEREKKEKREKKEREKEEKEREEKREKERKEKEREEREKEERER 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME * 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. 
KREKKKEKREEKEKREERKEEEERREEEEKRERREREKEKRKEEKEREEEREKEEEEREKKKEREEKKEEEKE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF DATA-BUFFER-LENGTH IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " DATA-BUFFER-LENGTH 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
IF LOGICAL-REC-LENGTH IS EQUAL TO RECEIVE-REC-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "LOGICAL LENGTHS ARE NOT THE SAME". 
MOVE 0 TO COMPARE-REC-SW 
NUMBER- CHARS 
NO~MORE- SW 
INDX1. 
COMPUTE RECEIVE-REC-LENGTH = RECEIVE-REC-LENGTH - 2. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
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IF COMPARE-OK . | 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 
DISPLAY "DATA. FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA, | 
RREKKEKEKREEKKEKEKEEKREKREKREEEEREKEKERKEEKREREEKEKREKRKEREKREEKEKREKEKEKEKKEKKEESE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO #* 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. + 
KREKKKEKREKKEEKEEREREKEEREKREKREREREEKEREEKRERERERERERKREKERKEEREREREEREKREKRES 
COMPUTE CONVERSION-LENGTH = RECEIVE-REC-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
DATA-FROM-HOST 
TRANSLATE-FROM- POSITION 
DATA-FROM-HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL-SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY DATA-FROM-HOST. 
600-EXIT. 
EXIT. 
*EJECT 
700-ISSUE-CONFIRMED, 
ERKEKKEKKEKKEKEEKEKEKREEKERKEEKEKREKKEKEKREKRKREEKKKEKEKKEKRKEKEKEEEKKEKEKKEEKSE 
* THIS ROUTINE WILL ISSUE A CSCNFD CALL. THIS WILL CAUSE AIF * 
* TO SEND A CONFIRMATION TO THE HOST TRANSACTION, * 
BREKEEKKEKKKEKEKREKEKEKEKEKEKEKEEKEKRKEKEKEKKEREKRREKEREKRKERERREKEKEKEKKKESE 
*#****DISPLAY "GOING TO DO CSCNFD NOW". 

CALL "CSCNFD" USING SNA-WORK-AREA. 
RKEKEKKEKKKEKEKEEKEKEKKEKEERKEEREKKEEKEKEEKEREEEKKREEKEEKEEREKEEERKKEREKEREKES 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEKKKEKKEKEKEKEKEEKKEKREEKEREKREKKEREEKREKREKEKKEKEKEKRKEKEKRKEEKREKKEKKEKEKEERKSE 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSCNFD - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
700-EXIT. 
EXIT. 
*SKIP3 
705-SEND-ERROR. 
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KRKEKKKKEEEKKEEKKKKEKREEEKRERKEKKEEKEEKKEKKEKKEEKRERKEKEKKEEEEKEKRKEKEKKEKEKEK 


* THIS ROUTINE WILL ISSUE A CSSERR CALL TO NOTIFY THE HOST * 
* TRANSACTION OF AN ERROR IN PROCESSING. THE TYPE OF ERROR * 
* IS PROG (TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE * 
* LOGGING OF DATA (LOG-SWITCH=N) . * 
KEKKEKEKKERKEKERERKEKEEKKEKEKEEEEEKEKEKRKEEKKEEKEKEKEKKEEKEKKEKEKEKKE 
**k**k*DISPLAY "GOING TO DO CSSERR TYPE P NOW". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSSERR" USING SNA-WORK-AREA 
TY PE~ SWITCH 
LOG- SWITCH 
LOG-DATA. 
KKEKEKKEKEKKEKKEKEEKREKEEEREEKKEKEEKERKKEKEERKEKKKRERKKEKKKEEEKEKEEKKEKKEEKEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KEKKEKRKEKEKEEKEKEKEKEKKKEKEKEEKEKEEKKKEKEEKEEEEEKKEKEKEKKEEREKEKREKKEKEKEEKEKKEREEER 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSERR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
705-EXIT. 
EXIT. 
*EJECT 
800-COMPARE-EACH-FIELD. 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 
ELSE | 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC-SW. 
IF INDX1 IS EQUAL TO RECEIVE-REC-LENGTH 
MOVE 1 TO NO-MORE-SW 
DISPLAY "END OF COMPARE" 
ELSE 
NEXT SENTENCE. 
800-EXIT. 
EXIT, 
*SKIP3 
900-CHECK-RETURN. 
BREEKEKEKEKERKEKKEKKKKKKKEKKEKEKKEKEKKEKKEEKKEREKKEERREKEKKEKKEEKKEKEKRKEKEESEK 


* THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS x 


* AIF VERB CALLS. A SWITCH IS SET TO INDICATE WHETHER THE * 
* CALL WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
* WIL BE DISPLAYED ON THE TERMINAL. * 


KKKEKKKEKRKREKRE REE KE ERE RE REE RE ER EERE KERR KREREEREREREEREEREREREREEKKE 
MOVE 0 TO ERROR-IN-CALL-SW. 
IF CALL-FORMAT-ERROR 
MOVE 1 TO ERROR-IN-CALL-SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR-RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
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GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: " SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE. 
IF ABEND-RECEIVED 
DISPLAY "AN ABEND/DEALLOCATE HAS BEEN RECEIVED" 
DISPLAY "SESSION WILL BE TERMINATED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE. 
MOVE 1 TO ERROR-IN-CALL-SW. 
900-EXIT. 
EXIT. 


*SKIP3 


* 


+ e HF He FH 


* 
* 
* 


999-END-PROGRAM. 
KREKEKKEKREKEKRKEKEKEREKEEKKEEREKEKEEKKEEKREKKEKEEKEKREKKEKEKKRERKKEEEKKEEEESK 
THIS ROUTINE WILL BE USED TO ISSUE A CSDEAL CALL ENDING THE * 
CONVERSATION WITH THE HOST TRANSACTION, THE TYPE OF DE- 
ALLOCATE IS FLUSH (TYPE-SWITCH=F) ON THE FIRST ATTEMPT IF * 
THAT HAS AN ERROR THEN AND ABEND PROG TYPE WILL BE ISSUED * 
(TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE LOGGING * 
* 
* 


* 


OF ERROR DATA (LOG-SWITCH=N). 
KAKKKEEKKKK EERE KER ERE KER ERE RRR ERE REE RR ERE RARER EER EKER RREEEEEEE 
****DTSPLAY "GOING TO TRY A NORMAL DEALLOCATE NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
. TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 
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KER KKK KEE KEKE EKER EKER EKER EERE EREREKEREEEEKEEEKRKEKEEREEEKEKEKES 


* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KRKKEKKEKEKEEKEKKERKKEKEKEKEKRKEKEKREKREKKEKEKKREKREKKKREKEKEKEKKEKEEKKEEEKRKEKEKSE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "CONVERSATION HAS BEEN DEALLOCATED" 
GO TO 999-EXIT 
ELSE 
DISPLAY "ERRORS FROM CSDEAL F - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE DEALLOCATE/ABEND". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 
999-EXIT. 
EXIT. 
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